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Probamos un programa, el 
Animalor , que muestra hasta dónde 
se puede llegar gráficamente con un 


CPC. 



Recopilamos todos los 


programas, 


comandos y 



gráficas 
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, El mejor software de 
CAD/CAM resulta que se hace en 
España. Vean si no el análisis del 
increíble sistema llamado IJilos ¡IJ. 
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'Todas las técnicas para 
crear imágenes tridimensionales en 
un CPC descritas paso a paso. 
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Impresoras en color: 
un lujo necesario 

Un ordenador sin impresora es como un jardín sin flores. Es, sin duda, 
uno de los periféricos más importantes del ordenador. Y no es precisamente 
algo barato. Quizá por esto, y también porque las necesidades de los usuarios 
varían mucho según el uso que le vayan a dar, existen muchas tecnologías 
diferentes de impresora que se pueden conectar a los mismos ordenadores. 


Por Feo. Javier Barceló Taboada 


I- - -¿ a NEC Pinwriter 

CP7 es una impresora 
matricial, de alta calidad que 
incorpora el color y es 
compatible totalmente con el 
Amstrad PC. 

Es francamente curioso 
observar esta impresora 
cuando está escribiendo en 
colores. La cinta dispone de 
cuatro franjas, de colores 
negro, azul, rojo y amarillo, 
parecida a la de las máquinas 
de escribir. Con estos colores 
la NEC es capaz de 



La NEC Pinwriter CP7, totalmente compatible con el PC, puede imprimir hasta en ocho colores. 
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reproducir ocho colores 
diferentes, cuatro de los 
cuales son los anteriores, y 
los otros cuatro para los que 
da dos pasadas a cada línea, 
cada una con un color 
diferente, con lo cual se 
logran otros cuatro. De esta 
manera textos y dibujos 
resultan bastante más 
atractivos de lo habitual. Al 
escribir, la impresora bascula 
la cinta seleccionando así 
unos u otros colores. 

A esta característica hay 
que añadirle una cabeza de 
impresión de 24 puntos cjue 
proporciona una calidad 
francamente notable, y una 
velocidad máxima de 216 
caracteres por segundo en 
calidad normal, velocidad 
francamente alta. 

La impresora viene 
configurada para cargar 
automáticamente hojas 
sueltas de papel, y la 
acompaña un voluminoso 
tractor para papel continuo, 
que se puede quitar cuando 
éste no se está usando. La 
instalación del mismo resulta 
sumamente sencilla y es una 
operación que no lleva ni un 
minuto. 

Dispone de un conmutador 
por el que se puede elegir el 
modo de impresión 
silencioso, que reduce el 
ruido producido en tres 
decibelios, detalle de 
agradecer aunque la 
diferencia no sea notable. 

Aparte de la selección por 
programa, el tipo y tamaño 
de letra se puede seleccionar 
con un conmutador de la 
propia impresora entre 11 
fuentes diferentes que 
incorpora. Además, 
incorpora caracteres gráficos 
obteniéndose una salida de 
los programas de dibujo 
francamente de calidad. 
También se pueden 
seleccionar juegos especiales 
de caracteres entre los de 12 
países distintos. 

Como medida de 
seguridad, la impresora 
incorpora un sensor de 
temperatura en la cabeza que 
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LETRA TIPO STANDARD 10 CPI PCNT 1. 

LETRA ENSANCHADA DOBLE 

LETRA ENSANCHADA TRIPLE 

imEMMmm 

LETRA 2x VERTICAL 2x HORIZONTAL 

LETRA 2x VERT. 3x HORIZ 


al alcanzar ésta una 
temperatura de 90 grados 
selecciona automáticamente 
la escritura en una sola 
dirección, y si aun así la 
temperatura se eleva por 
encima de los 105 grados la 
para totalmente hasta que 
ésta se enfría, alargado así la 
vida útil de la misma, que 


está estimada por el 
fabricante en unos 200 
millones de caracteres. 


Tamaños y tipos de letra 

La variedad de tamaños 
con los que imprime es algo 
más amplia de lo habitual. 


Aparte de los típicos 
comprimido, ensanchado, 
subíndices y superíndices, 
incorpora opciones de triple 
ancho, doble altura y doble 
grosor pudiendo éstos, 
además, combinar entre sí 
para obtener efectos de gran 
calidad y estética. 

En cuanto a los tipos de 
letra, el habitual tipo 
estándar y el de cursiva, 
pudiéndose seleccionar la 
calidad. Por cierto, que el 
modo de alta calidad obtiene 
un resultado excepcional que 
no envidia a muchas 
impresoras de margarita. 

En este apartado la 
característica más interesante 
es la de poder elegir el tipo y 
tamaño de letra desde la 
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Nota importante: Los dibujos de este artículo, numerados del 
1 al 4 han sido extraídos del programa AutoCad, también ana¬ 
lizado en el presente número, y volcados en papel usando la im¬ 
presora NEC Pinwriter CP7. 


propia impresora. Esta posee 
un display y un botón 
llamado font, de manera que, 
según el número 
seleccionado, la impresora 
escribe, siempre que el 
programa no mande otra 
cosa incompatible, en el 
modo y tamaño seleccionado. 
Hay que especificar lo de 
compatible porque si se 
selecciona, por ejemplo, el 
modo de doble ancho en la 
impresora, y se escribe un 
texto en el que algunas frases 
vayan a doble ancho que el 
resto del texto, con lo que no 
se lograría el efecto deseado. 
Pero es una facultad 
realmente cómoda en muchos 
programas estándar, que 
realizan las salidas a 


impresora en calidad y tipo 
de letra normal, por si en 
algún momento se desea 
obtener listados de manera 
distinta. 


Papel 

La impresora admite hasta 
original y tres copias. 
Naturalmente las copias no 


LETRA TIPO STANDARD FONT 4. 

LETRA ENSANCHADA 


LETRA ENSANCHADA VERTICAL 

LETRA 2x VERTICAL 2x HORIZONTAL 

LETRA 2x VERT. 3x HORI 
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Volcado de un diseño de Gem Draw. 

salen en color y, además, 
hay que tener en cuenta que 
si alguna parte de la 
impresión va en un color que 
necesite dos pasadas por la 
misma línea, en las copias 
esta parte saldrá más oscura 
que el resto. 

Admite papel continuo 
incorporando un voluminoso 
tractor, que no obstante se 
instala y desinstala en muy 
poco tiempo. Y una 
característica interesante es 
que este tractor es 
bidireccional, lo que permite 
tanto avanzar como 
retroceder el papel. 

El sistema de alimentación 
de hojas sueltas que 
incorpora es muy similar al 
de la impresora de los 
Amstrad PCW. Se introduce 
el principio de la hoja en su 
ranura y se sitúa la palanca 
’e carga en la posición 
.itermedia, con lo que éste 
se carga automáticamente y 
queda listo para funcionar 
con sólo retornar la palanca a 


ficha TÉCNICA 


MFC modelo Pinwriter CP7. 

Impresora NEC mo 

Alimentación por trice 

Velocidad: 

Alta calidad, 60 cps. 

Calidad media, 180 cps. 

Calidad normal, 216 cps. 

Sonoridad: 

Normal, 56 Db. 

Silencioso, 53 Db. 

Juegos de caracteres: 

ASCII Standard. 

IBM Gráficos. 

12 juegos especiales de países. 

B R tluci6nUcade360a360 dpi. 

SXSoO millones de caracteres. 
Cinta 3 millones de carácter^ 
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Las impresoras a color constituyen 
una irresistible tentación para todo 
aquel que pretenda presentar 
documentos e informes con una 
calidad profesional 



La imagen , ya 
clásica, de Gem 
Paint «vista» por la 
NEC Pinwrinter. 


su posición original. En las 
pruebas hechas, el 
funcionamiento resultó 
excelente, no siendo 
necesario ajustar las hojas 
manualmente ninguna vez. 

Color 

La impresora puede 
imprimir en ocho colores 
diferentes. Desde Basic es 
fácilmente programable con 
la habitual instrucción 
LPRINT sin ofrecer ninguna 
dificultad. A la hora de 
dibujar, para realizar dibujos 
en color el programa que se 
utilice debe prever la 
instalación de esta impresora, 
o de una de tipo muy 
similar. 

Otras características 

Aparte de sus propios 
juegos de caracteres, la 
impresora dispone de una 
zona de su memoria donde 
se puede cargar otro tipo 
creado por el usuario o que 
acompañe a algún programa. 
En este momento, este juego 
de caracteres entra en vigor y 
permanece hasta que esta se 
apaga. 

Conclusión 


Las pruebas realizadas con 


esta impresora han sido 
francamente satisfactorias. 
Particularmente, la calidad 
de la letra resulta 
excepcional. Viene 
perfectamente equipada, 
aunque los manuales sean en 
inglés y lalte información 
sobre determinados aspectos, 


particularmente sobre cómo 
configurar las opciones de 
color en modo gráfico. 

A pesar de esto, es una 
impresora rápida, dura y 
muy completa, que nos ha 
causado muy buena 
impresión, nunca mejor 
dicho... 
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The Animator, gráficos que cobran vida 




Por Víctor Prieto 

Todos los programas de diseño gráfico que podemos encontrar en el 
mercado hacen lo mismo: solamente sirven para dibujar (cosa nada 
extraña, pues es para lo que han sido creados). En ellos podemos 
incluir texto, diferentes colores, superficies con texturas, rectas, curvas, 
etc a pero el resultado es siempre el mismo, una pantalla almacenada 
en memoria. 


r 

oriscientes de la escasez de software 
distmTO'-pBra los usuarios de Amstrad, la casa 
Discovery entra de lleno en uno de los campos 
más apasionantes del diseño electrónico: la 
animación de imágenes por ordenador. 

En términos generales la animación consiste en 
la rápida sucesión, ante nuestra vista, de 
imágenes, consiguiendo de esta forma la 
sensación de movimiento (efecto utilizado desde 
los albores de la ciencia cinematográfica para 
hacer que una serie de fotogramas cobre vida). 

En una primera aproximación, el problema de 
la animación podría solucionarse dibujando una a 
una las imágenes a someter al proceso de 
animación y luego pasarlas rápidamente. 

Para trasladar esto al ordenador, tendríamos 
que dibujar en pantalla cada una de ellas e ir 
almacenándolas en distintos bloques de memoria, 
de forma que, al querer ver la secuencia 
completa, ésta pasará por la pantalla a gran 
velocidad produciendo la sensación de 
movimiento. 

Sin embargo, el software lo hace todo mucho 
más fácil. La animación generada por ordenador 
simplifica de forma drástica el proceso a realizar: 
nosotros sólo ponemos la imagen inicial y final, 


generando el ordenador todos los fotogramas 
intermedios que forman la secuencia de 
animación. 

Esta cualidad de generar las imágenes 
intermedias, es la que hace que los programas de 
animación faciliten extraordinariamente la labor 
de los diseñadores, consiguiendo efectos de 
movimiento verdaderamente logrados en cuestión 
de minutos. 

The Animator incluye dos módulos bien 
diferentes en su función. Se podría decir que 
tenemos dos programas simultáneamente en 
memoria. El primero de ellos está dedicado al 
dibujo de las figuras, y el segundo, que da 
nombre al programa, es el que contiene las 
rutinas de animación. 

El módulo de dibujo. 

Antes de dotar de animación a cualquier 
forma, hemos de tener las herramientas 
necesarias para crearla, en este sentido el 
programa nos facilita una completa gama de 
comandos que nos permiten dibujar toda clase de 
formas geométricas. 
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Llegado este punto, hemos de aclarar, para los 
aficionados a la programación de juegos, que el 
programa de dibujo está diseñado pensando 
primordialmente en la ejecución de dibujos 
geométricos: polígonos, figuras de tres 
dimensiones, estructuras lineales de sólidos, etc., 
quedando fuera de sus posibilidades la creación 
de personajes para juegos. 

The Animator trabaja en tres modos de pantalla 
diferentes: El modo 0 ofrece una resolución de 
320 x 136 pixels con dos colores distintos, el 
modo 1 tiene 640 x 136, también en dos colores, 
y el modo 2 presenta una resolución de 320 x 136 
puntos con cuatro colores. 

Animator da todo tipo de 
facilidades para girar 
objetos. 

mm 

La pantalla de dibujo contiene un área de 
información en su porción inferior, en la que se 
contienen todos los datos referentes a la imagen y 
secuencia de animación en la que nos 
encontramos, en ésta se nos indica la figura que 
estamos tratando, la opción de trazado empleada, 
la cantidad de memoria disponible, el modo 
comando en curso, etc. 

El movimiento del cursor en pantalla puede 
realizarse con joystick de tres velocidades 
distintas: velocidad de crucero para 
desplazamientos medios, superrápida para 
grandes longitudes y lenta para dibujo de 
precisión. 

Dibujo de rectas y polígonos 

Dado el carácter meramente geométrico del 
módulo de dibujo, el trazado de rectas puede 
realizarse de dos modos diferentes: en el modo 
individual, fijaremos los puntos de los extremos. 
En el caso de que lo que tengamos que dibujar 
sea un conjunto de líneas unidas, el modo de 
encadenamiento nos permite trazar de forma que 
el principio de la siguiente recta coincida con el 
final de la última realizada. 

El dibujo de rectángulos posee una opción 
específica, la cual traza el mismo con sólo fijar 
los extremos de la diagonal principal. 

El trazado de polígonos de cualquier número 
de lados está contemplado en una función 
especial y con ella se puede conseguir cualquier 
figura con un número de lados comprendidos 
entre 3 y 24. En primer lugar fijaremos el centro 
y el número de lados, después el radio de la 
circunferencia circunscrita y el polígono regular 


quedará trazado. Figuras de más de 15 lados 
darán como resultado círculos, siendo éstos más o 
menos perfectos en función del número de 
segmentos seleccionados. 

El borrado se realiza línea a línea. Puede 
elegirse cualquiera de las trazadas, siguiendo un 
método de numeración, que reproduce el orden 
en que aquéllas han sido trazadas en pantalla. 

No existe opción de borrado de puntos, o trozos 
de línea determinados. Esto hace difícil el dibujo 
de figuras no geométricas en las cuales cada 
punto tiene entidad propia y no forma parte de 
una ley geométrica. 

Funciones especiales. 

Una opción nueva en este programa es el 
trazado de curvas multiformes, su uso permite 
dibujar una línea de pantalla punto a punto con 
trazado curvilíneo, que podemos someter a ciertas 
modificaciones. Trata cada punto como segmento 
distinto, reduciendo o aumentando, según 
nuestro gusto, el número de los mismos. De esta 
forma, podemos conseguir suavizar el contorno 
de la curva, o hacerlo más abrupto al reducir el 
número de lados. 

Las superficies pueden ser tratadas por medio 
del rellenado; éste se puede realizar a base de 
colores sólidos o utilizando las texturas que 
facilita el programa: puntos, trazos verticales y 
trazos horizontales. La utilización de las mismas 
permite la mezcla de distintos colores, ampliando 
la gama de colorido permitida por los distintos 
modos de pantalla. 

Sin lugar a dudas, la opción más espectacular 
y potente del módulo de dibujo es la de 
transformación de bloques. Esta, desconocida 
hasta ahora en cualquier programa de dibujo, 
somete a un completo proceso de mutación a la 
forma original, distorsionándola a medida de 
nuestros gustos. 

Realidad y perspectiva se dan cita en la 
animación gracias a este programa. 
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Con su uso podemos mover bloques de dibujo 
a lo largo de la pantalla y copiarlo en los puntos 
deseados las veces necesarias. 

La transformación de sus dimensiones permite 
alargarla o acortarla, reducir el eje X o el Y, 
alargarlos, girar la figura 90 grados en cualquier 
sentido y obtener la figura reflejada respecto a 
cualquiera de los ejes. 

Como plato fuerte, la posibilidad de girar 
punto a punto, con lo cual la figura original 
puede ser girada en sentido horario o antihorario 
con la máxima precisión, obteniendo imágenes 
rotadas, pocos pixels respecto a la anterior. 


Módulos de animación. 


Antes de realizar la animación de una figura, 
al menos hemos de tener dos imágenes 
generadoras. Una vez puesto en marcha el 
proceso de animación, el programa generará las 
figuras intermedias entre las definidas 
anteriormente. 

The Animator puede contener simultáneamente 
24 secuencias distintas de animación en memoria, 
cada una de las cuales puede ser grabada o 
cargada en disco o cinta. Existen tres formas 
distintas de grabación: 

—Modo Data, en el cual son grabados los datos 
de cada una de las figuras que componen las 
imágenes fuente de la animación, como son: cada 
línea de la misma, el color y los datos 
correspondientes a rotaciones y pausas. De esta 
forma, una vez que los datos han sido cargados, 
el programa ha de crear cada figura y 
compactarla. 

—Modo Demo, en el que se graba la totalidad 
de la secuencia, refiriéndonos a secuencia como la 
serie de todos los fotogramas que componen la 
animación. Una Demo funcionará 
instantáneamente y está concebida para ser 
ejecutada fuera del Animator. 

—Modo Completo, con el cual grabamos todas 
las secuencias de animación de la memoria en 
modo Data. 

Para definir las figuras generadoras de la 
animación, hemos de darles un número 


ANIMATION MENU 


k 

i S8S E DEM " 

I 


Menory used:0ix 


CURREN! FRftME:001 t Key Franeí 


KEV'S: 001 oís 030 


2 _ §SS ati ON:000 

raijfééág - 0 ® 0 
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comprendido entre 1 y 999. Cada vez que 
comenzamos con una nueva secuencia, el 
programa comienza en la pantalla de edición con 
la figura número 1. Podemos definir hasta un 
máximo de 27 figuras fuente. 

Activar una secuencia de animación es una 
tarea automática. Una vez pulsada la opción 
número 6, The Animator genera y compacta todas 
las imágenes intermedias representando después 
la secuencia completa al máximo de velocidad. 
Ésta no parará hasta que no la desactivemos 
pulsando ESCAPE. 

La animación se puede ejecutar también en 
forma inversa, yendo de la última imagen hasta 
la primera; la acción también puede ser 
congelada con lo que podremos mantener una 
imagen en pantalla y recorrer una a una las 
formas de la secuencia. 

En el menú de animación podemos graduar la 
velocidad de la misma, estableciendo pausas entre 
fotograma y fotograma con una precisión de 1/50 
de segundo. También se puede acelerar o 
ralentizar el paso de los fotogramas ajustando la 
velocidad entre imagen e imagen. 

Una posibilidad importante del módulo de 
animación es la de producir giros en tres 
dimensiones de las imágenes generadoras del 
movimiento. Estos giros se producen respecto a 

Podemos observar un objeto desde 
cualquier ángulo a golpe 
de joystick. 

unos supuestos ejes que pasan por el centro de la 
pantalla. 

La animación puede rotar respecto al eje X, 
respecto al eje Y o simultáneamente respecto a 
ambos. La cuantía del giro se expresa en grados. 

La combinación acertada de giros y la 
reproducción de imágenes en distintos lugares de 
la pantalla puede crear unos efectos francamente 
espectaculares, en los que no tenemos más 
trabajo que el de crear una figura, que 
posteriormente modificaremos con la 
transformación de bloques, consiguiendo las dos 
imágenes fuente de la secuencia. 

Una última sofisticación en la animación nos 
permite definir texturas en las superficies de los 
cuerpos a tratar. Este relleno se realiza de forma 
• automática; de igual forma que ocurre con los 
fotogramas intermedios, con la particularidad de 
que hemos de definir una por una las superficies 
a tratar en la imagen inicial y la final. Para ello, 
el módulo de animación nos presenta por orden 
numérico las dos imágenes, en las que 
seleccionamos y marcamos las caras adecuadas 
con la textura deseada. Posteriormente, el 
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prograrlna compacta una por una todas las 
imágenes de la serie, ejecutando después la serie 
completa con las texturas marcadas. 


Módulo RUN-Time. 


El objetivo principal de este módulo es poder 
reproducir la secuencia de animación sin 
necesidad de tener que cargar el programa, con 
ello podemos incorporar la animación creada a 
nuestros programas y utilizar los efectos 
generados en el Animator fuera de sus fronteras. 

Otra ventaja del Run-Time es que funciona de 
manera diferente que el Animator. Figuras que en 
éste producen un ligero parpadeo en pantalla, al 
ser ejecutadas en Run-Time, eliminan totalmente 
ese efecto consiguiendo un movimiento suave y 
continuo. 


Es posible observar el dibujo 
animado sin el Animator en memoria. 


Este módulo es una parte separada del 
programa, que se puede localizar en la dirección 
de memoria deseada. Además, en el 6128, utiliza 
los 64 K del segundo banco de memoria, dejando 
libres 100 K para la animación. 

Todos los comandos de este módulo son 
extensiones RSX, cada uno de los cuales puede 
ser utilizado dentro de un programa Basic o 
directamente desde el teclado, incorporando los 
siguientes comandos: 

GET, seguido del número de demo, carga una 
determinada secuencia en memoria. 

SETCOL, permite fijar los colores a utilizar en 
la animación. 

ANIMATE, ejecuta la secuencia especificada, 


un número determinado de veces, a la velocidad 
fijada en otro de sus parámetros. 

CLEAN, borra de la memoria todas las 
animaciones existentes. 

SHOW, lleva a pantalla una figura 
determinada de cualquiera de las secuencias 
contenidas en memoria. 

También es posible incluir texto en pantalla 
con la utilización de una ventana en la parte 
inferior de ésta, la cual puede coexistir con la 
animación proporcionando títulos en diferente 
color. 


Memoria. 


The Animator, tiene la habilidad de saber 
aprovechar las Ks de memoria extra que 
proporciona el 6128. De esta forma, en los 
modelos 464 y 664 el programa deja libres para 
el almacenamiento de imágenes un total de 17 
Ks, mientras que en el 6128 la memoria libre de 
almacenamiento es de 81 Ks. 

La cantidad de imágenes que podamos 
obtener, depende directamente del número de 
líneas que contenga la figura y del uso que se 
haga de las texturas. 

Una secuencia con figuras de complicada 
estructura en el 6128 puede tener un máximo de 
100 fotogramas. Por el contrario, figuras que 
contengan solamente dos líneas pueden 
extenderse hasta 600 imágenes. 

Desafortunadamente no existe método alguno 
para calcular la cantidad de memoria que va a 
ocupar una secuencia antes de ser animada. Una 
vez hecho esto, el contador de memoria nos 
indicará el porcentaje de memoria libre. 

Este contador solamente da una idea 
aproximada del estado de la memoria, incluso 
cuando indique que el 99 por ciento se encuentra 
lleno podremos introducir algunas imágenes. Una 
vez realizada la animación marca el espacio que 
ocupan las imágenes comprimidas; antes de 
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efectuar ésta, solamente contará el espacio 
ocupado por las figuras fuente e intermedias de la 
animación. 

Para resolver los problemas producidos por los 
mensajes de OUT OF-MEMORY, siempre 
podremos eliminar algunas de las otras series de 
animación contenidas en memoria, o recurrir a 
acortar el número de líneas ocupado por las 
figuras fuente, reduciéndolas por medio de la 
función de transformación de bloques. 


Instrucciones. 


El programa contiene un completo manual de 
instrucciones en el que se trata con extenso 
detalle cada una de las opciones del mismo. Para 
su manejo se ha dividido en ocho capítulos 
ordenados por grado de dificultad, 
proporcionando un completo entendimiento desde 
sus facetas más elementales hasta las complejas 
técnicas de animación. 

El primer capítulo está dedicado al aprendizaje 
de las bases del programa. Paso a paso se nos 
describe la forma de crear una secuencia de 
animación sencilla, primero dibujando las 
imágenes fuente, luego animándolas y después 
añadiéndoles nuevas figuras. 

El segundo capítulo se centra en la descripción 
de los menús y las opciones. La tercera parte se 
dedica al módulo de dibujo y a todas las 
posibilidades que pone a nuestra disposición. La 
siguiente trata de la edición de las figuras fuente 





contenidas en memoria. Tras ella tenemos la 
animación de figuras sólidas, las técnicas 
avanzadas de animación, el módulo de rutinas 
Run-Time y el sumario de opciones y comandos. 

Un completísimo manual claro y conciso (sin 
olvidar que viene íntegramente en inglés), con el 
que podremos dominar de forma fácil y en pocas 
horas de práctica este programa. 

Conclusiones. 

The Animator, es un programa de una gran 
potencia unida a una increíble facilidad de 
utilización, debida a la racionalización y claridad 
de las funciones y menús que incluye. El 
conocimiento de todas sus posibilidades y su 
adecuada utilización requiere varias horas de 
experimentación, tiempo que después se verá 
compensado por los increíbles efectos que se 
pueden lograr. 

El programa de dibujo es sencillo de utilizar y 
muy completo e idóneo para la creación de 
polígonos, toda clase de figuras geométricas, 
sólidos y demás composiciones lineales, pero no 
para la creación de personajes o pantallas que 
por su composición alejada de las formas 



geométricas entran netamente en el campo del 
dibujo artístico. Puede ser muy interesante para 
crear perspectivas lineales, por la facilidad del 
trazado para rectas, en las que luego podremos 
simular todos los efectos tridimensionales que se 
nos ocurran. Una gran utilidad del sello 
Discovery. 



ÍL 
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imagen 


perfecta 


Por: Víctor Prieto 


lo primero que nos llama la 
atención es el comentario que la 
propia casa productora hace de su 
obra: «Un programa de gráficos por 
ordenador diferente. En adición a 
las clásicas posibilidades de dibujo y coloreado, The Image System 
permite realizar zoom, movimiento, copia, escala, giros y procesar dibujos 
en un espacio de tres dimensiones». 


r 

A. A 1 procesamiento de objetos en espacio de 
tres dimensiones permite obtener imágenes 
distorsionadas a partir de la que queremos 
procesar. Esta distorsión va desde el simple efecto 
de reducir las dimensiones de la misma hasta 
mayores sofisticaciones, como son las de hacer 
que la pantalla gire en al espacio, alargar o 
estrechar las figuras y deformar sus vértices hasta 
el extremo de doblarla u obtener planos fugados 
de la misma. 

Supongamos que queremos construir una 
composición cuyo tema central es un cubo en 
perspectiva, en cada una de cuyas caras se 
encuentra dibujado un círculo de distinto color. 

El cubo presentará tres caras vistas, cada una de 
ellas correspondiente a un cuadrilátero distinto, 
dentro de las cuales se encontrarán tres elipses 
correspondientes a la imagen en perspectiva de 
los círculos de color. 

Esta composición utilizando The Image System se 
resuelve fácilmente en apenas 15 minutos. En 
primer lugar dibujaremos el cuadrado 
correspondiente a la cara del cubo. Luego el 
círculo inscrito. Con la opción de texturas lo 


rellenaremos con un color diferente a la cara en 
la que está contenido. 

Obtenida la figura generadora, sólo tenemos 
que archivarla en memoria y procesarla. Con 
sólo dibujar las aristas vistas de las tres caras del 
cubo en perspectiva, procesaremos posteriormente 
tres veces la imagen archivada encajándola dentro 
de los lados de aquél. 

Trab ajan do con Im age Sys tem 

Es importante resaltar que The Image System 
está únicamente diseñado para dibujar en el 
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modo de 16 colores, no existiendo la posibilidad 
de usar los modos 4 ó 2 colores. De esta manera 
perdemos en resolución; pero podemos dotar a 
nuestros dibujos de todo el colorido que la amplia 
gama del Amstrad permite. 

La ventana de información está presidida por 
la carta de colores. En ella se presentan los 16 
colores seleccionados para el dibujo, bajo los 
cuales una flecha nos señala el que estamos 
utilizando en cada momento. 

Debajo de la primera carta de colores está 
situada la correspondiente a los filtros y colores 
transparentes, el uso de los cuales describiremos 
posteriormente. 

Siguiendo en orden descendente, encontramos 
el indicador de memoria ocupada, consistente en 
una barra horizontal que funciona de forma 



semejante a los marcadores de fuel, una línea 
negra creciendo de izquierda a derecha en 
función de la cantidad de memoria consumida. 

Después encontramos la ventana de mensajes. 
En posición normal presenta las coordenadas del 
punto de pantalla en el que se encuentra situado 
el cursor. 


Operaciones elementales 

The Image System ha sido diseñado para trabajar 
únicamente con el teclado, no pudiendo dibujarse 
con la ayuda del joystick, como contemplan en 
otros programas de dibujo. Para facilitar la labor, 



se ha buscado la distribución de las teclas más 
racional posible, de forma que la mano derecha 
maneja las teclas del cursor y la izquierda queda 
reservada para la elección de los colores y la 
selección de los comandos. 

Tiene la peculiaridad de haber cambiado dos 
teclas de la mayor importancia. La operación de 
Escape no está en su tecla como debiera, sino que 
se ha llevado a la tecla Tab. De forma similar, la 
mayoría de las operaciones de aceptar un 
comando y ejecutarlo, en vez de realizarse con 
Enter, se efectúan con la tecla Copy, quedando 
aquél reservado solamente para la introducción 
de los valores numéricos. 

El cambio de color de dibujo se realiza de una 
forma curiosa. Para movernos por las 16 casillas 
de la carta de colores, tenemos a nuestra 
disposición en la primera línea del teclado las 
teclas correspondientes a los números del 1 al 8. 
Cada vez que pulsamos una de ellas, el indicador 
de color en curso se sitúa bajo el color 
correspondiente a los 8 primeros de la carta. Los 
8 restantes se obtienen pulsando un número entre 
1 y 8 simultáneamente con Shift. El sistema, 
aunque diferente al utilizado en otros programas 
no tarda mucho en hacerse familiar. 

Gama de colores 


. La elección de los colores a utilizar en nuestro 
dibujo ha de realizarse por medio de la opción 
Define Palette, con la que también determinamos 
los 16 colores de los 27 disponibles en el 
Amstrad; para ello, una vez activada la opción, 


















El programa posee una gran 
cantidad de texturas para rellenar 
superficies. 



basta con seleccionar la casilla correspondiente en 
la carta de colores. En la zona de mensajes nos 
aparecerá un número que podemos incrementar o 
decrementar hasta llegar al deseado. Una vez 
fijados el número y la casilla, un toque de Copy 
los situará en la carta de colores para su posterior 
milar podemos fijar el color del 
ntre los 27 disponibles, 
pantalla se consigue gracias a la 
quq permite borrar cualquier 
te en ella, tiñendo la pantalla del 
Así, el iáismo comando realiza 
simultáneas: cambiar el color del 
pant 


uso. 1 h 
borde 

El | 

gftl 

dibujo 

color indic ad! 
ncione; 

papel 


sorra' 


D ibujos geo métricos 

Como la ma; 
éste permite dibi 
líneas y círculos con 
puntos. 

Draw Lines permite dibujar rectas fijando el 
origen y el final de la misma. Funciona de modo 
continuo, de forma que al determinar el primer 
punto, de éste surge un segmento que se va 


los programas de dibujo, 
geométricas como 
o la determinación de dos 


moviendo con el cursor, permitiéndonos ver el 
tamaño y posición de la recta antes de fijar su 
final. 

El dibujo de rectas se realiza también de forma 
encadenada, lo que posibilita que dibujemos un 
conjunto de líneas de una sola vez con la 
condición de que el extremo de una sea el 
principio de la siguiente; mecanismo de gran 
utilidad a la hora de hacer dibujos geométricos, 
en los que la precisión a la hora de unir los 
extremos de las líneas es de suma importancia. 

El trazado de círculos se ejecuta mediante 
Circles, con lo que podemos obtener también 
elipses. Para su uso hemos de fijar los dos ejes de 
la misma, construyendo el rectángulo circunscrito 
a la misma. Una vez definido éste, una pulsación 
de Copy hace aparecer nuestra curva. Si en el 
lugar de obtener el contorno queremos que ésta 
aparezca rellena, Shift + Copy nos muestran la 
superficie en color del dibujo en curso. 


Ampliación y texturas 

Como todo programa de dibujo que se precie, 
la opción de ampliación debe estar contemplada, 
siendo la eficacia y el tamaño de la misma la que 
marca la calidad del producto. 

En este caso se le da el nombre de Zoom, y 
cada vez que se activa la opción aparece la 
ventana de ampliación conteniendo la zona de 
dibujo cercana a la posición del cursor, en una 
superficie de 20 cm 2 podemos ver la porción de la 
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pantalla elegida aumentada dos o cuatro veces, 
en la cual es posible realizar las modificaciones 
necesarias sobre el trazado original (una 
superficie algo pequeña, pero que sirve para 
modificar las partes necesarias). 

En el aspecto de las texturas, cualquier 
superficie cerrada por líneas puede ser rellenada 
con los distintos medios que The Image System 
pone a nuestro alcance. 

Los rellenos en colores sólidos se hacen de 
forma automática, situando el cursor dentro de la 
superficie a cubrir. 

Los rellenos con texturas especiales se realizan 
de idéntico modo, pudiendo elegir entre una 
gama de 10 texturas definidas en el programa. 

La opción Define Textures está dirigida a los que 
quieran incorporar sus propias superficies. 

Figuras en memoria 


almacenar en memoria la pantalla completa como 
cualquier otra imagen. 

El indicador de estado de memoria nos 
señalará el espacio disponible. Utilizando figuras 
de tamaño aproximado a un cuarto de pantalla, 
la capacidad de almacenamiento es de 3 
imágenes. No obstante, el contenido de la 
memoria puede ser transferido a cinta o disco, 
con lo que las tres figuras pueden convertirse en 
el número deseado por cada uno. 

Erase Pictures permite borrar de la memoria las 
que consideremos innecesarias o las que nos 
disgusten. 

Imágenes tridimensionales 

Por fin llegamos al plato fuerte del programa, 
la opción más potente y espectacular por sus 
resultados, que hace que The Image System sea un 


Otra de las muchas particularidades de este 
software es la capacidad de almacenar trozos de 
imágenes en memoria. Considera como una 
imagen cualquier área rectangular de la pantalla. 

La ventaja de esta facultad es que permite 
repetir en una pantalla el contenido de las 
imágenes almacenadas en memoria, realizando 
mezclas y superposiciones sin necesidad de trazar 
una sola línea. 

Para almacenar una imagen en memoria 
utilizaremos el comando Save Picture, el cual hace 
aparecer en pantalla dos rectas perpendiculares 
con las que delimitamos dos de los lados del 
rectángulo que la va a contener. Una vez fijado 
éste, aparecen otras dos que nos permiten 
cerrarlo, pasando la imagen acotada a la 
memoria. En el caso más extremo podemos hasta 


























programa «diferente»: el procesamiento de 
imágenes en tres dimensiones. 

Cualquier imagen contenida en memoria 
(incluso si se trata de la pantalla completa) puede 
ser sometida al proceso tridimensional. El 
desencadenante del mismo es el comando View 
Picture. Con su uso cualquier imagen de la 
memoria será transferida a la pantalla de forma 
instantánea y nos permitirá realizar su 
transformación. 

Una vez activada, el monitor nos presenta, 
centelleante, el rectángulo que contiene el 
perímetro de la imagen llamada a pantalla. En 
este momento podemos empezar su modificación 
e estos aspectos: 

uándola en cualquier parte de la 
e las teclas de cursor. 

gn este apartado de la gama 
e giros imaginables en un programa 
contemplado los giros en todos 
iondientes al espacio tridimensional, 
en intervalos de tres o cuatro 
ea ée la precisión con que 
rotaciones de las figuras 
liendo hacerse cada uno en ambos 
antihorario. 

Inidos de la 
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i\\ 


porn 
p se 
que 
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utilizadas, pu 
sentidos: hora 
Los ejes de 
siguiente form 

El eje Z es el pIN^BHS^ilar a la pantalla. 
Cualquier giro en este plano hará que la figura 
rote dentro del plano de la misma sin 
experimentar ningún cambio en sus dimensiones. 

El eje X corresponde al eje horizontal y el 
efecto producido es similar al que se conseguiría 
si la pantalla girase respecto a su parte inferior 
abatiéndose sobre el plano de la mesa. 


Image System permite el procesamiento 
de imágenes en tres dimensiones. 


El eje Y gira en el espacio según el eje vertical. 
El efecto producido es similar al de abrir una 
puerta, un lado de la hoja se aleja, mientras el 
otro se acerca hacia nosotros. 


Escalas y deformaciones 

El conjunto de giros y movimientos se 
complementa con los cambios de escala. Gracias a 
éstos podemos ampliar o reducir la figura 
procesada, incluyendo este proceso algunas 
modificaciones complementarias. 

El primer grupo de cambios de escala lo 
constituyen ampliación y reducción. La 
ampliación puede perfectamente rebasar los 
márgenes de la pantalla, mientras que la 
reducción puede ir desde el tamaño completo de 
ésta hasta un conjunto de pocos pixels. El 
segundo grupo afecta solamente a la altura; ésta 
puede ser reducida o aumentada sin afectar ello a 



la anchura de la misma, que permanecerá 
constante. El tercer grupo hace lo mismo, pero 
esta vez con la anchura. 

Por si estas modificaciones parecen pocas y 
todavía no se ajustan a nuestros gustos, llega el 
«no va más», Move Point, que permite distorsionar 
cualquier imagen hasta el punto de hacerla 
doblarse formando superficies alabeadas. 

Con ella podemos mover cualquiera de los 
cuatro vértices que delimitan nuestra figura y 
desplazarlo respecto a los demás, pudiendo 
repetir el proceso con los cuatro, de ser 
necesario. 

Combinando esta opción con las de cambio de 
escala y rotación, cualquier posición de un plano 
en el espacio puede ser reproducida en pantalla, 
haciendo que nuestros dibujos cobren volumen y 
profundidad siguiendo las leyes de la perspectiva. 

El único incoñveniente de todas estas 
transformaciones es el tiempo que tarda en 
generarse la imagen final. Esta se va formando 
línea a línea, tardando en reproducir una 
transformación de la pantalla completa unos tres 
minutos, tiempo algo excesivo si se compara con 
otros programas que hacen los cambios 
instantáneamente (aunque no sean de este 
género). 


Filtros y transparencias 


Las anteriores opciones permiten modificar la 
forma de las imágenes hasta límites insospechados, 
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pero para su mejor aprovechamiento sería 
necesario poder mezclar varias imágenes ya 
transformadas en la pantalla. 

Define Colour Fillers hace posible cambiar los 
colores de la figura que tenemos en memoria, 
presentándose ésta en pantalla con los colores 
preestablecidos. Con esta faceta es fácil obtener 
en pantalla una composición a base de repetir 
varias veces la misma imagen, pero con colores 
distintos cada vez. 

Esto, realizado por las buenas, produce un 
efecto desagradable: al reproducir una figura 
sobre otra, el rectángulo que contiene a la última 
borra la porción que invade de la anterior, 
perdiendo partes de ésta. Para evitarlo, haría 
falta algo que nos permitiera superponer dibujos 
sin perder nada; aquí entran de lleno los colores 
transparentes. 

Con Define Transparent Colours podemos hacer 
transparente el color o colores de la imagen 
grabada en memoria que posteriormente dejarán 
ver lo que hay debajo al ser reproducida ésta en 
pantalla. De esta forma eliminamos el fondo de 
la imagen para que, al superponer, no borre lo 
de abajo. 

Programas complementarios 

Viene complementado con una serie de 
programas que permiten la utilización de las 
pantallas y figuras creadas con el diseñador en 
nuestros programas Basic. 

La rutina que realiza el trabajo ocupa un total 
de 216 bytes, y puede ser situada en cualquier 
localización de memoria. Su uso permite 
representar una figura en cualquier lugar de la 
pantalla, especificando en un sencillo programa 
cargador la fila y columna del vértice de la 
figura. En el mismo programa podemos 
especificar los colores transparentes y los filtros 
deseados para su visualización. 

La segunda rutina sirve para realizar un 
volcado de la pantalla por impresora. 

The Image System permite trabajar 
indistintamente con cinta o disco. Disk y Tape 


seleccionan el periférico utilizado. 

Para grabar se utiliza la función File, que 
grabará en el periférico seleccionado en su opción 
Pictures las imágenes contenidas en memoria, y 
mediante la opción Screen, la pantalla en curso. 

La carga de pantallas o figuras funciona de 
idéntica manera con el comando Load. 

Todo el manejo del programa y la descripción 
completa de sus comandos viene incluida en un 
manual de 48 páginas en el que se afrontan las 
características y posibilidades del mismo en orden 
de dificultad ascendente. 

Un excelente manual con el que el programa 
no deja ninguna duda y puede ser utilizado al 
máximo de sus posibilidades. 

Conclusión 

Nos encontramos, como bien especificaba la 
publicidad de la casa CLR, ante un programa 
«diferente». En sus puras posibilidades de 
trazado, comparado con los demás programas de 
dibujo resulta un poco inferior, aunque no le 
falta ninguna opción principal. Otros ( Melbourne 
Draw, Art Studio) son muchísimo más completos, 
con un abanico de posibilidades que harían 
palidecer a cualquiera. Pero no hemos de olvidar 
que precisamente la característica que le hace 
distinto a todos, el procesamiento de imágenes en 
tres dimensiones, le sitúa en un plano distinto. 
Las posibilidades que aporta esta faceta son 
ignoradas por los otros productos del mercado. 
Los efectos que pone a nuestra disposición hacen 
de The Image System un programa único en su 
género, ideal para realizar colages y diseños 
basados en dibujos realizados anteriormente y 
para la reproducción de las mejores imágenes 
tridimensionales creadas matemáticamente o 
dibujadas a mano. 

Aunque sus capacidades de dibujo son 
suficientes, los aficionados exigentes y puntillosos 
con los programas de diseño pueden recurrir al 
truco de confeccionar los dibujos con un 
Melbourne Draw o un Art Studio y, una vez 
grabados en cinta o disco, procesarlos en tres 
dimensiones con The Image System. 










GRAFPAD-5 

Tableta gráfica 
para Amstrad 


El tratamiento y proceso de imágenes por ordenador se está convirtiendo, día a día, en un gigantesco negocio, 
que mueve una increíble cantidad de millones de... dólares, por supuesto. 

El caso es que cada vez más firmas de software y hardware hacen eco de la nueva moda y tratan de 
comercializar rápidamente sus productos, auténticas panaceas del cad-cam a precio de saldo. En este artículo 
vamos a analizar uno de los aparatos de soft y hard más prometedores en el difícil compromiso 

prestaciones/precio. 


JSásicamente, este tipo de «procesadores de 
gráficos» tratan de ofrecer una gran potencialidad 
de diseño de figuras geométricas facilitando al 
usuario una serie de opciones de tan simple 
acceso como es... apuntar y disparar. 

El sistema es un híbrido de hardware y 
software compuesto por una pequeña tarjeta de 
expansión, una tableta gráfica y un lápiz. 

La instalación del «kit» se puede efectuar en 
pocos minutos y no requiere conocimientos 
especiales. 

Siguiendo las instrucciones que acompañan al 
kit (como de costumbre en inglés) se procederá a 
la instalación del sistema. En primer lugar se 
acoplará el circuito en uno de los slots libres del 
ordenador, lo cual no reviste dificultad alguna. 
Tras ello inicializaremos el ordenador de la forma 
habitual y procederemos a obtener una copia del 
disco del sistema, adaptándolo a la configuración 
particular del equipo a utilizar. 

Para ello introduciremos el disco maestro de 



Los dibujos pueden archivarse y utilizarse más tarde, colocán¬ 
dolos en cualquier lugar de la pantalla. 


instalación, al ejecutarlo nos pedirá que 
seleccionemos las características del equipo a 
utilizar referentes a tipo de monitor (monocromo 
o color), tipo de impresora o plotter, etc., y 
después de pedirnos que insertemos un disco, 
formateado el programa maestro, generará una 
copia de utilización adaptada a la configuración 
descrita. 


Tableta gráfica 

Una base de trabajo construida en plástico y 
de dimensiones 30 x 23 cm, y sobre la cual se 
haya dispuesta una hoja protegida contra el uso, 
a su vez con una lámina de plástico transparente 
y en la que agrupadas por «familias» se hayan 
distribuidas todas las operaciones posibles a 
realizar, estos grupos de comandos se identifican 
con gran facilidad al estar coloreados suave pero 
contrastadamente e identificados por su título 
genérico. También incorpora un teclado 
simplificado, con lo que prácticamente hace 
innecesario el uso del teclado ordinario para 
realizar el diseño en su totalidad. 

La tableta aloja en su interior unos circuitos 
electrónicos de los que parten dos terminales, uno 
de ellos es el cable de conexión al ordenador y 
que deberá ser conectado (con el equipo apagado) 
a la tarjeta de expansión que anteriormente fue 
acoplada en el interior del ordenador. El otro 
cable está solidariamente unido al «lápiz», que 
nos servirá de puntero para seleccionar cada una 
de las operaciones que queramos realizar. 

El principio de funcionamiento del sistema, 
básicamente, es que la tableta gráfica lleva en su 
interior un circuito en forma de parrilla que 
cubre toda la superficie de trabajo y cuyos 
terminales están conectados a un chip, también 
alojado en su interior, de modo que al deslizar el 
lápiz (que no es más que un generador de 
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frecuencias) sobre la superficie de la tableta el 
chip deduce la posición relativa del lápiz sobre la 
información impresa transmitiéndola al 
ordenador, si sobre esa posición pulsamos el 
interruptor del lápiz, la función seleccionada se 
ejecutará. 

Por otra parte, el criterio de dibujo no es el 
tradicional de los editores de gráficos .en los que 
se pintan o borran pixels en pantalla y luego se 
utiliza como tal dibujo, sino que el CAD 
memoriza cada uno de los trazos que se vayan 
realizando tanto en su localización como en su 
orden de ejecución, lo cual nos permite 
retroceder a cualquier paso del diseño y 
recuperarlo, bien sea para borrarlo, como para 
utilizarlo (copiarlo, girarlo, modificarlo, etc.). 

Una vez instalado el Grafpad y obtenida la 
copia de trabajo podemos empezar el diseño. 

Cada vez que utilicemos el CAD, éste se 
inicializará instándonos a calibrar la tableta, para 
lo cual deberemos señalar con el lápiz en la zona 
marcada como SET ZERO y pulsar el 
interruptor, a fin de que éste conozca la posición 
relativa de cada comando. Efectuado esto la 
pantalla del monitor quedará lista para comenzar 
el dibujo. Una ventana informativa estará 
siempre presente en la parte superior de la 
pantalla, la cual, además de mostrar los distintos 
mensajes durante la confección del dibujo nos 
indicará continuamente las coordenadas de 
situación. 

Pero conozcamos un poco la versatilidad y el 
funcionamiento de las opciones que lo componen, 
para ello, nada mejor que llevar a cabo la 
realización de un dibujo. En primer lugar, será 
conveniente definir el tamaño del dibujo a 
realizar, para ello disponemos de diferentes 
formatos de DIN desde el A5 hasta el AO 
(210 x 150 y 1200 x 840 mm, respectivamente), e 
incluso admite la posibilidad de creación de 
cualquier formato dentro de estas dimensiones. 
También deberemos seleccionar el tipo de unidad 
de medida que queremos utilizar (mieras, 
milímetros, centímetros, etc.). No obstante, estos 
valores pueden ser cambiados en cualquier 
momento sin afectar al dibujo realizado. 
Orientándonos por las coordenadas de situación 
que continuamente nos ofrece la ventana 
informativa iremos seleccionando sobre la tableta 
cada uno de los parámetros correspondientes a 
cada línea, en el siguiente orden: 

• Tipo de línea, ya que disponemos de varios 
tipos de líneas (continuas, de trazos, de puntos, 
de trazo y punto, etc.). 

• Color de líneas. 

• Línea o figura a trazar: 

— Línea recta entre dos puntos. 

— Línea quebrada que va pasando por 
sucesivos puntos. 

— La realización de rectángulos se logra 
indicando como origen el vértice inferior 
izquierdo y después el superior derecho, con la 


REF.USB 


z 


\ 




La capacidad de reproducir exactamente, las veces que se quie¬ 
ra, se ve claramente en este gráfico. 


ventaja de que la figura va formándose según 
desplazamos el lápiz por la superficie de la 
tableta. 

— La realización de circunferencias ofrece 
tres variantes: seleccionando el centro y un punto 
de la periferia o bien definiendo dos puntos 
diametralmente opuestos o tres puntos cualquiera 
de la circunferencia. 

— El trazado de líneas curvas se puede 
conseguir de dos modos: definiendo el centro del 
radio y sus dos extremos o bien indicando sus 
extremos y un punto intermedio. 

— También es posible realizar dibujos «a 
pulso» con la opción croquis. 

Otras opciones relativas al tipo de dibujo son 
las de empalme entre las dos últimas líneas 
realizadas o la posibilidad de efectuar distintos 
rayados de secciones en las figuras, determinando 
para ello la dirección, la densidad y tipo de las 
líneas que rellenarán la zona indicada. 

El modo texto también está previsto y con la 
particularidad de poderse especificar el tamaño y 
tipo de los caracteres a usar, además podremos 
utilizar cualquier tipo de fuente que tengamos 
archivado. 

Quizá la opción más curiosa de todo el CAD 
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Esta tableta es de gran ayuda en la realización de complicados esquemas de circuitos impresos. 


es la de acotación, con lo cual tras indicar dos 
puntos de nuestro dibujo obtendremos 
automáticamente una cota que indicará en 
perfectas normas de acotado la medida exacta 
que los separa, utilizando para ello el sistema de 
dimensiones previamente seleccionado. 

Cualquier parte del dibujo puede ser 
seleccionada y archivada como «símbolo» y 
utilizarse, posteriormente, en éste u otros dibujos 
que realicemos, utilizando para ello el menú de 
símbolos que nos permitirá salvar, cargar, editar 
y modificar nuestra biblioteca. 

Para mayor facilidad de situación del puntero 
sobre el dibujo, disponemos de un par de 


Grafpad es el máximo exponente 
de la nueva generación de 
equipos de diseño de bajo precio 
y grandes prestaciones 

potentes y cómodas opciones: la «rejilla» y el 
«paso». 

La «rejilla» no es más que la típica trama de 
puntos que cubrirá la pantalla para servirnos de 
pauta, el tamaño de su cuadrícula puede ser 
determinado en cualquier momento, así como su 
activación o desactivación. El «paso», ligado en 
tamaño y situación a la parrilla, hará que el 
desplazamiento de la mira se efectúe «a saltos» 
por el entramado, lo cual nos permitirá una más 
fácil situación en el dibujo, al igual que la 
anterior opción puede activarse o desactivarse 
independientemente en cualquier momento. 

Lógicamente, las situaciones de error también 
han de tenerse en cuenta. Con distintas opciones 


podremos anular una selección de dibujo 
equivocada, una posición errónea e incluso un 
trazo realizado anteriormente, seleccionando la 
línea a borrar, incluso las opciones «siguiente» y 
«anterior» nos permitirán recorrer el dibujo en su 
orden de realización para así modificarlo si lo 
considerásemos necesario, incluso podremos 
recuperarlo si acto seguido así lo deseamos. 

Otra forma de realización de líneas puede 
conseguirse a través del grupo de opciones de 
«coordenadas» en las que definiendo los valores 
correspondientes y estableciendo los puntos de 
comienzo, intermedios o de final para la figura a 
dibujar en cualquiera de los sistemas de trabajo 
mediante coordenadas absolutas, relativas e 
incluso en sistemas de coordenadas polares. 

La ampliación de tamaño de una zona 
particular del dibujo nos ayudará en gran manera 
a realizar los pequeños detalles, la opción de 



El diseño de planos industriales se realiza más cómodamente con 
un instrumento de ayuda como esta tableta. 
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Los elementos cruciales del Mrafpad-5: la tableta gráfica y el lápiz óptico. 


«zoom» cubre con crécesela necesidad, se puede 
utilizar de dos formas diferemí^^ien definir una 
ventana que cubra el área a detalla^ 
esa zona será ampliada al tamaño de pantalla, o 
activando la opción «zoom» directamente, lo cual 
producirá un cambio de tamaño en proporción al 
factor de aumento que haya definido. Tras 
efectuar los retoques puede retornarse al tamaño 
original usando el comando «previo». 

El gran potencial del CAD se aprecia al 
utilizar las espectaculares opciones de Copia, 
Rotación, Escala y Espejo, todas ellas son 
utilizables tanto para líneas en particular, como 
para secciones parciales o pantallas completas. 

Con las distintas opciones de Copia y 
seleccionando la línea o zona a utilizar podremos 
desplazar de un lugar a otro del dibujo o copiarla 
una o varias veces en distintos sitios. Las 
múltiples posibilidades de rotación permiten 
realizar el giro de líneas o secciones en valores^ 
predeterminados de 90°, sucesivos giros de''15° 
en 15° o también girar la figura un ánguwk 
cualquiera aunque éste sea de valor fraccictón^o^ 
(por ejemplo, 18,32°). 

De modo parecido funcionan los comandos de 
Escala, estando predeterminados los valores de 
doble y mitad de tamaño podremos utilizar los 
valores de escala que más se nos antoje, sean 
enteros o decimales, de ampliación o de 
reducción. Común a estos dos grupos de 
instrucciones (Rotación y Escala) existe la 
posibilidad de cambios «dinámicos», es decir, 
podemos ampliar o girar un dibujo a un 


La gran ventaja de este tipo de 
programas es su interactividad 
permanente con el usuario. 
Grafpad responde de inmediato a 
cualquier acción 


determinado estado en forma continua según sea 

el ^--p 1 . : ii|¡|| ili I lii|ii i r la tableta hasta 

[amos la forma o^^uación que más 
nos interese. 

La relación con la informaciól en disco, 
relativos al dibujo, se contemplwen el menú de 
dibujos mediante el cual podr^nos Salvar o 
Cargar nuestros diseños o tajwoién realizar 
catálogos, borrar dibujos (predefinirlos. 

Un último submenú j^ra dedicado a la 
obtención de copiasj^or impresora, lo constituyen 
un variado lote dg^nstrucciones o comandos 
dedicados principalmente a la preparación de 
datos reXa.úvm 'a la copia a obtener. Desde la 
selección jm? la zona a imprimir a la escala que 
queren^^que sea reproducida, logrando así, 
incitas; copias al tamaño real al que estábamos 
düwfjando o a cualquier escala que estimemos 
■cesario. 

Sin duda, la gran variedad de comandos y la 
, potencialidad de los mismos hacen del Grafpad 
un programa de diseño asistido por ordenador 
que facilita, en alto grado, la realización de 
dibujos técnicos. 


s¿ 


Las posibilidades de rotación es una de las opciones más potentes del 
programa. 
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El estándar en CAD/CAM para PCs 


AUTOCAD 

Hay multitud de programas de CAD en el mercado de los 
PCs, pero sólo uno puede presumir de ser el estándar: 

AutoCad. 



h 


Por: Feo. Javier Barceló Taboada 


__ asta hace poco tiempo, los programas 
llamados «de dibujo asistido» solo estaban al 
alcance de grandes ordenadores. 

Pero hoy, añadiéndole a su PC 
de Amstrad determinados 
periféricos, puede 
disponer de la 


versión para IBM del Autocad, convirtiendo el 
ordenador en una potentísima herramienta de 
dibujo. 

El primer detalle que hay que 
recalcar es que Autocad no 
funciona con el 

Amstrad PC sin 
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más. Para empezar, hay que disponer de un 
disco duro donde almacenar la información que 
contienen sus nueve diskettes. Además, 
necesitará instalarle una tarjeta gráfica Hércules 
y un monitor de alta resolución compatible con 
ella, dado que el programa no «reconoce» el 
entorno operativo de la pantalla de Amstrad. Y 
para hacer las cosas como es debido, un plotter o 
trazador con el que imprimir los dibujos con gran 
calidad. No obstante, la impresora de Amstrad o 
cualquiera similar, siempre que tenga caracteres 
gráficos, es capaz de reproducir con bastante 
aproximación el dibujo de la pantalla. 

Y además de estos dispositivos, si se quiere 
«rizar el rizo» se puede instalar una tableta 
gráfica con la que realizar desde copias de planos 
hasta dibujos a mano alzada. Las posibilidades, 
como se ve, son muy grandes, aunque hay que 
pagarlas aparte. 

Autocad puede realizar cualquier tipo de 
dibujo, aunque naturalmente donde se demuestra 
que es una herramienta poderosa es en el dibujo 
técnico. Valiéndose de sus comandos se pueden 
realizar dibujos de una precisión asombrosa. 

Un programa de este tipo no suele ser fácil de 
manejar. No obstante, para empezar a dibujar no 
hace falta mucho tiempo, aunque naturalmente 
sacarle todo el rendimiento requiere de horas de 
práctica y paciencia. Además, como opción, 
incluye una versión del lenguaje LISP que 
permite automatizar mediante programas la 
construcción o modificación de dibujos. 

El programa viene en nueve diskettes, que hay 
que cargar en el disco duro. Una vez hecho esto, 



la primera vez que se llama al programa, se 
entra automáticamente en el menú de 
configuración. En éste hay que elegir el monitor 
a emplear, la tarjeta gráfica que se va a usar, la 
impresora, el ratón y la marca de la tableta 
gráfica, si se tiene, igual que el plotter. 

A la hora de pensar en el equipo a utilizar, es 
conveniente saber que Autocad puede funcionar 
con dos monitores, usando uno como monitor de 
dibujo y otro para los menús de pantalla y 
mensajes del sistema. Además, el programa prevé 
el ajuste de las medidas tanto en pantalla como 
en los dispositivos de salida gráfica. Para ello 
habrá que dibujar un cuadrado con el programa 



El diseño industrial es una de las aplicaciones más prácticas de 
este programa. 
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y medirlo con una regla, tanto en el dibujo 
impreso como en la pantalla, dándole sus 
medidas al programa de configuración. Los 
cálculos los hace el programa automáticamente, 
de manera que luego las medidas de los dibujos 
que realice se ajusten a la realidad. 


Menú principal 

Al cargar el programa, se visualizan primero 
unos mensajes de presentación. Estos mensajes 
vienen en un fichero llamado ACAD.MSG, que 
se puede editar con un procesador de textos, y 
cambiar su contenido al que se desee, o borrarlo 
Una vez visualizado esto, aparece el menú 




La resolución que alcanza es muy alta, tanto en dibujos tridimensionales como los dibujos bidimensionales . 
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principal, que da acceso a las diversas partes del 
programa. Se puede optar por comenzar un 
nuevo dibujo, editar un dibujo existente, 
imprimir un dibujo por plotter o impresora, re¬ 
configurar el sistema, compilar un fichero de 
descripción o ir al menú de ficheros y convertir 
un dibujo hecho por una versión de Autocad más 
antigua para que se pueda visualizar con éste. 

Al elegir la creación de un dibujo, el programa 
pregunta el nombre y le aplica automáticamente 
la extensión .DWG. Además, se pueden emplear 
prototipos para hacer dibujos. Los prototipos 
pueden incluir distintas características válidas 
para varios dibujos, como nombres predefinidos, 
cuadros de títulos, etc. 

Una vez dados estos datos, se pasa a la 
pantalla de edición, desde la cual se pueden 
teclear órdenes o bien seleccionar con el ratón, 
dentro del menú de edición, el submenú u opción, 
deseada. 

Menú de edición 

Este menú permite iniciar el dibujo, 
introduciendo la escala y los límites del dibujo 
que se va a realizar, así como las unidades que se 
van a emplear (milímetros o pulgadas). 

Además de esto, todas las funciones de 
Autocad se estructuran en 12 submenús, algunos 
de los cuales poseen otro menú más. 


Con AutoCAD se pueden dibujar con la misma facilidad rectas 
y curvas. 

Dibujando... 

Para situar los dibujos, el programa utiliza dos 
ejes de coordenadas cartesianas. De esta forma, 
cualquier punto se puede fijar según sus 
coordenadas. 

Las unidades del dibujo son las dadas al 
inicializar. Permite hasta 14 cifras significativas, 
incluyendo decimales, y fijar la escala de dibujo 
que se desee. 

Para facilitar la creación o estudio de un 
dibujo, se dispone de Zoom, que permite ampliar 




Una vez que se han trazado las líneas del diseño deseado, se pueden variar las medidas o dimensiones. 
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AutoCAD es de una gran ayuda en cualquiera de los campos pro¬ 
fesionales que necesiten el diseño o el dibujo habitualmente. 


El menú se maneja a través del tablero digitalizador o del ratón. 


o reducir la parte del dibujo con la que se 
trabaje. Los límites del Zoom son 
aproximadamente de 10 billones a uno, capacidad 
más que suficiente. El aumento o disminución de 
la parte que se ve en Ja pantalla no influye en las 
medidas del dibujo. Estas son siempre constantes, 
i según los parámetros que se hayan dado. 

Dado que la precisión con la que se puede ver 
un dibujo depende del monitor que se esté 
usando, el programa permite forzar la posición 
en pantalla de las coordenadas para que todos los 


puntos coincidan en la intersección de las líneas 
del monitor. Esto no afecta al dibujo a la hora de 
imprimirlo, pero facilita enormemente la 
visualización del mismo. 

Se puede dibujar, bien indicando por el teclado 
las coordenadas y movimientos necesarios o bien 
utilizando el ratón para mover el cursor por la 
pantalla. Además, si se dispone de tableta gráfica 
se puede dibujar sobre ella. Este periférico resulta 
de gran utilidad, sobre todo cuando se tienen que 
copiar dibujos para trabajar con ellos. Con la 
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tableta gráfica copiar un plano o un mapa —por 
ejemplo— resulta una labor muy fácil. 

En cualquier fase del dibujo se puede dirigir la 
salida del mismo, o de una parte de él, hacia la 
impresora o plotter, de manera que se pueda 
comprobar la marcha del trabajo. Además, se 
puede almacenar en disco, de manera que luego 
se pueda añadir a otro dibujo, o crear uno en 
base a varios fragmentos. 

Se pueden superponer en el dibujo tantas capas 
como haga falta. Cada capa puede poseer un 
color y tipo de línea determinado. Con esta 
posibilidad se puede crear un dibujo que sea 
como esas láminas con las que se enseña a los 
niños el cuerpo humano y que tienen primero un 
esqueleto, encima del cual se ponen láminas de 
papel vegetal con las venas, los músculos, etc. 

Los dibujos llamados prototipo permiten 
establecer ciertas condiciones comunes a varios 
dibujos, tales como el tamaño, límites, 
coordenadas, modos, etc. y luego salvarlas en 
disco. De esta manera, al empezar un nuevo 
dibujo no hay que volver a definirlas. No 


obstante, estos valores se pueden cambiar, 
editando el dibujo en el momento que se desee. 

Todo dibujo se puede salvar en modo ASCII, 
de manera que pueda ser utilizado por otros 
programas o transmitido a otros ordenadores del 
modo habitual. 

Los textos de los dibujos se pueden situar de 
manera absoluta, en unas coordenadas prefijadas, 
y de manera relativa, según la posición del 
dibujo. Además, se pueden centrar, ajustar e 
incluso poner inclinados. Con el programa vienen 
suministrados cuatro tipos de letra. Son letra 
normal, simple, compleja e itálica. Además, 
desde el propio programa se pueden construir 
otros tipos de letra, y definir el ángulo de 
inclinación de las letras con respecto al dibujo. 

Programas suplementarios 

Se pueden adquirir por separado los programas 
ADE 1, 2 y 3, que amplían las posibilidades del 
Autocad. Los tres son correlativos, lo que quiere 


Las variadas opciones que permite este programa, van desde ju¬ 
gar con un texto, poniéndolo en diferentes posiciones, anchuras 
o tipos de letras, hasta la utilización de una gran cantidad de <da- 
yers». 




El dibujo se puede memorizary verlo cuando deseemos, entero o 
por partes, incluso una misma zona cambiando el encuadre. 
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El dibujo de planos arquitectónicos es una de las materias en las que es más fácil ver las amplias posibilidades del programa. 


decir que para usar el ADE 2 hay que tener 
también el 1, y para usar el 3 hay que tener el 2. 

ADE-1: provee de acotación semiautomática de 
los dibujos, así como una serie de herramientas 
útiles, sobre todo, para dibujo industrial y 
arquitectura. 

ADE-2: proporciona otra serie de herramientas 
que facilitan el empalme de dibujos e incluso 
ensayar arrastres y empalmes para observar el 


resultado sin modificar realmente el dibujo hasta 
que se dé con el resultado óptimo. También 
permite obtener simetrías definiendo simplemente 
el eje. 

ADE-3: representa dibujos en tres dimensiones, 
dándoles la altura deseada y estableciendo una 
coordenada como punto de vista del dibujo. 

Además de estos programas, el Autolisp que 
incorpora es un lenguaje que permite simplificar 
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la entrada de datos por el teclado, así como 
girar, ampliar, reducir o descomponer dibujos. A 
través de este lenguaje, se pueden crear nuevos 
comandos con los que funcionar en el programa. 

Conclusión 


Aunque para hacer correr este programa en el 
Amstrad hay que gastarse cási el doble de lo que 
vale el ordenador en periféricos y añadidos, 
profesionales de muy diversas ramas pueden 
encontrar en Autocad un programa 
extremadamente práctico. Las posibilidades del 
programa son prácticamente ilimitadas, y este 


artículo sólo refleja algunas de las más 
importantes. Explicarlas todas ocuparía 
probablemente cuatro o cinco revistas como ésta. 

El manual que acompaña al programa es muy 
completo y está escrito en castellano, cosa de 
agradecer. El único problema que hay es la 
escasa información que da sobre la configuración 
del programa, pero describe a la perfección su 
funcionamiento. 

Por su precio y sus características, es un 
programa específico para profesionales que 
tengan que recurrir al dibujo frecuentemente, 
sobre todo para diseñar. Si se le saca todo el 
rendimiento, este programa tendrá difícil 
sustituto en este tipo de negocios. 



fes® 

/ ADE ,<Sn 2 5 

/ rZZ’ PrOr ^0rcf u t!° S p, “ 

/ rd >ac/os. etc. u hojas ciecn 
/ V <^ón 2.5 

j¡*y «nffisf' *■ 

32 Hn!° N PAfi A « 

ibm 6i5o (RT) su -Dadores de 

BS' n, ” ,e "'ít? Ll0 ' incluye un - 
ADE-2 A a J ,zaci °nes. V dno 


pesetas 

Español 


ayuc 

*• id cor 


• s usuaJes 
P°r pan- 

líe ® fip 0s 

tr ucció n 


.■>.usodep| anosy(r 
Para su uso 
— irónicas, 


Marión cic 
medios de l¡. 
in dd arrastre 
raf nas isomé- 
’ en bases de 
ac o(ac/ó n 


■gojioPcj 


Fill Ortfo 


An esta serie de pantallas se puede apre¬ 
ciar algunos campos en los que se puede uti¬ 
lizar este programa y la variedad de colo¬ 
res que utiliza. 


Distribuye: Softronics, S. A. Cos- 
lada, 3, 1-5. 28028 Madrid. 

Tel.: 255 50 05/04 


RUBY CRYSTAL LASER 










































































Sería ocioso insistir en la enorme importancia del diseño asistido por ordenador para 
ordenadores PC compatibles, así como también está claro que en este mercado, responsable de 
la movilización de una enorme cantidad de dinero, existe un estándar en CAD: el 
archiconocido AutoCad. Pues bien, un grupo de programadores españoles ha desarrollado un 
sistema de diseño asistido, centrado en el tratamiento de objetos tridimensionales, que supera 
ampliamente al famoso programa americano en este terreno concreto. Esta joya del software, 
porque difícilmente se la puede llamar de otra forma, está escrita en Fortran, desarrollada 
sobre un Vax de Digital y transportado a un ordenador tipo PC considerablemente reforzado 
en cuanto a hardware. Una muestra más de la gran calidad del sqft profesional hecho en 

España. 


T 

M i as siglas CAD corresponden a las inciales 
de Computer Aiding Dcsing, es decir, diseño 
asistido por ordenador. La siglas españolas 
podrían ser, pues DAO o DAC, según se asuma 
la palabra ordenador o computador. 

Inicialmente la sigla D de CAD hacía 
referencia más al Dibujo que al Diseño como tal, 
pues era aquél el realmente ayudado. ¿Cómo? 
Substituyendo el trazado con regla y compás, por 
la impresión de puntos procedentes del cálculo 
automatizado sobre la ecuación de la recta y la 
circunferencia. 


La máquina, en consecuencia, ya empezaba a 
dibujar, pero todavía no podía ayudar al dibujo. 
F.ra demasiado engorrosa la labor de entrar todos 
los datos por el teclado, y tampoco existían los 
periféricos —complementos al ordenador— 
adecuados para la salida gráfica, entrada de datos 
de puntos, ni un soporte sistematizado que 
permitiera una práctica interactividad máquina 
usuario. 

La relativamente reciente aparición de los 
rnouses (ratones), tabletas digitalizadoras, plollers 
(trazadores gráficos), impresoras gráficas , joyshcks 
(mandos de vídeo juegos), unido a la 
incorporación del monitor como periférico 
































































importante del ordenador, y al paralelo desarrollo 
de la tecnología vídeo, han hecho desaparecer las 
barreras incómodas que impedían la colaboración 
hombre-máquina en el dibujo. 

CAD 2D es el nombre por el que se designa a 
aquellos programas de dibujo ayudado por 
ordenador, que se especializan en simplificar y 
automatizar el cálculo y trazado de líneas 
presentes sobre un plano de trabajo (pantalla del 
televisor o papel), mediante la substitución 
interna de la regla por la ecuación de la recta, y 
el compás por la ecuación de la circunferencia. 

Los CAD 2D constituyen la primera gran 
revolución en el mundo de la informática gráfica, 
no sólo al liberar al dibujante de parte de su 
tarea mecánica, sino al ofrecerle un mundo de 
pequeñas ayudas: gama de colores para 
diferenciar líneas que se borran sin dejar rastro, 
memorización de dimensiones, cálculo y 
representación de proporciones, escalados, 
repeticiones, superposiciones, etc. 

El ámbito de los CAD 2D es un universo de¬ 
dos dimensiones, aun cuando la disposición 
relativa de las líneas trazadas en él induzca al 
espectador a intuir una profundidad. 

La denominación CAD 2D 1/2 se utiliza para 
aquellos sistemas que manipulan líneas en el 
espacio, permitiendo una representación 
semiautomática en perspectiva isométrica de las 
líneas entradas. 



Todo lo que usted se puede imaginar, 
es posible hacerlo con una asombrosa 
facilidad usando el sistema Dilos 3D. 


Dilos 31) puede representar en pantalla simultáneamente 256 
colores distintos. Por tanto, el efecto se aproxima e incluso 
supera a la calidad fotográfica, otorgando un aspecto 
profesional al máximo a cualquier diseño. 


La denominación CAD 3D se reserva para 
aquellos sistemas gráficos que sobrepasan su 
conceptuación de herramientas para hacer planos, 
siendo su unidad de trabajo la superficie, en vez 
de la línea. Ello permite abordar, con todas sus 
consecuencias, el cálculo de las propiedades 
volumétricas y geométricas de los objetos reales, 
así como la construcción automática, también, de 
cualquier tipo de vista bidimensional del cuerpo. 

Los sitemas 3D han permitido al hombre- 
romper una limitación histórica. En efecto, 
hasta ahora cualquier representación 
tridimensional de sólidos ha estado en el propio 
sólido, en su maqueta, o en la mente del que lo 
concebía. Y cuando éste debía explicarlo sólo 
tenía tres alternativas: Construirlo (3D), 
maquetarlo (3D), o realizar sus planos (2D), de 
acuerdo con unas convenciones establecidas. 
(Piense el lector tanto en una pirámide egipcia, 
como en el diseño de un nuevo encendedor.) 

El receptor de planos reconstruía, con su 
ayuda, la volumetría del sólido en su mente. Y 
así se ha perpetuado hasta nuestros días la 
transmisión de las formas tridimensionales. 3D en 



Imagen digitalizada. Mediante los digitalizadores, una imagen 
cualquiera del mundo real puede ser transmitida a la pantalla 
del ordenador, donde un software adecuado, como en el caso 
de Dilos 3D. puede obrar maravillas. 


fD(D Cu 








Estas f fotos muestran las formas básicas en las que un objeto puede ser tratado por el sistema: dibujo huero, relleno de color con 
perspectiva y volumen, y con posibilidad de girarlo en cualquier ángulo (loto inferior izquierda). 



la mente, ‘2D en los planos y de nuevo, 3D en 
otra mente. 

La aportación fundamental de la técnica !¡1) es 
que, por primera vez en la historia, ese ciclo 
básico se ha roto y da cabida a un receptor de 
formas 3D no humano. El proceso base cambia: 
3D -> 3D _+ 2D, en el caso particular de vistas. 
Pero desde este segundo 3D se abre un horizonte 
de nuevas aplicaciones, con las ventajas asociadas 
que de su potencial explotación se derivan y que 
Ditos 3D por supuesto contempla. 

Entre las ventajas cabe destacar: 

— Reducción del trabajo de la Oficina 
Técnica, en términos tradicionales de expresión 
gráfica (Planos), a la realización de un único 
trabajo de modelado con dimensiones reales, para 
poder obtener de él infinitos planos a cualquier 
escala, de cualquier vista, o vistas, tanto 
exteriores como internas (secciones). 

— Reducción del ciclo Concepción/Realización 
de nuevos productos, al poder experimentar con 
la creación, sin depender de los pasos intermedios 


que conlleva la materializa* ión de prototipos, 
despieces. 

— Rcdueeiém de tiempo y errores en 
Rediseño, Modificación'y Planos Derivados, al 
procedía de Sólidos correctos ya desarrollados. 

— Acceso a otros cálculos, en los que la 
premisa es que los ordenadores conozcan la 
geometría del sólido objeto de cálculo (UAM, 
CAE) 

— Aplica* ión a sectores tan diversos como 
Ingeniería Mecánica (Piezas, Mecanismos, 
Máquinas. Ingeniería de planta. .), o 
Arquitectura, y Diseño Industrial, (Objetos, 
Interiorismo, Arquitectura, Urbanismo...), etc. 


Modelado de sólidos y Pilos 3D _ 

Dentro de los sistemas 31) existen dos grandes 
grupos: los sistemas de diseño de superficies y los 
de Modelado de Sólidos. A su vez los sistemas de 














La característica más dcstacablc del programa es su facultad de otorgar volumen a los objetos, jugando con la iluminación que la 
figura recibe desde un único punto de luz que se puede colocar a gusto del diseñador. 



Modelado de Sólidos pueden subelasiiiearse según 
el modelo interno de modelado y representación: 
geométrica constructiva de sólidos (CSCí), árboles 
octales, caras planas, etc. 

Tal clasificación responde a la oferta de 
distintos caminos para aproximar y explotar, 
según sea el fin, a la geometría volumétrica real 
del sólido objeto de representación, del mismo 
modo que en el sector mecánico existen distintos 
tipos de Máquina-Herramienta según sea el tipo 
de pieza y mecanizado a conseguir. 

Dilos 31) es una estación Autónoma de 
Modelado tridimensional de sólidos, propiedad de 
GYS, S. A. que, bajo sus directrices, ha sido 
desarrollado por el Departamento de Métodos 
Informáticos de la Universidad Politécnica de 
Cataluña, e implementada sobre una primera 
solución Hardware, diseñada en paralelo con 
Hispano Olivetti y los departamentos de I + D de 
Olivetti de Ivrea (Italia). 

DILOS 3D es un modelador de sólidos 3D 
basado en caras planas. Los objetos quedan 
definidos a través de las superficies frontera que 
limitan su volumen, e internamente constituidas 



por la yuxtaposición de numerosas caras planas, 
que aproximan la superficie real con la precisión 
que determine el usuario. 

Reeoge toda la nueva metodología antes 
enunciada, y la conforma para olrecer al usuario 
un potente, flexible e intuitivo camino para 
generar, ver, y estudiar sólidos con alto grado de 
eficacia y facilidad de manejo, partiendo de la 
base que tal usuario no tiene porqué ser un 
experto informático. 

Este primer soporte está pensado para ofrecer 
las siguientes prestaciones: 

— Preeio/Potencia/Prestaciones: Poder poner 
al alcance de las economías de las empresas 
españolas una herramienta 3D con las ventajas 
indicadas, y que hasta ahora sólo quedaba al 
alcance, por sus altos precios, de las grandes 
compañías. 

— Autonomía: Poder disponer de un equipo 
autónomo y casi portable, con el fin de poder 
desligar los frío entornos de las grandes 
instalaciones informáticas que se precisaban, de 
los deseables e independientes que a menudo 
reclama la creatividad. 





Las posibilidades son ilimitadas. Podemos fraccionar cualquier imagen por el plano que se desee, tratarlos independientemente y 
luego volverlos a unir en una sola entidad. 


— Compatibilidad con otro software de gestión 
compatible: Poder disponer en la estación de 
algún procesador capaz de explotar también otros 
Software del mercado, como son los de los 
Ordenadores Personales. 


La clave del diseño tridimensional 
escriba en el efecto de volumen que 
crea la luz y la sombra. 


— Crecimiento: Poder configurarse sobre otras 
Máquinas que integren a estas primeras para 
alcanzar, paulatinamente, un sistema amplio y 
distribuido que aproveche todo esfuerzo inicial 
afectuado. 

— Abierto: Para poder configurarse a medida 
de la expertex y requerimientos de comodidad y 
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Primer intento de creación de la sección de la columna 


Selección del color. Véase la paleta disponible en la mitad 
inferior de la pantalla. 


Cambio del tamaño de la figura 


Nuevo ajuste del tamaño de la columna a una escala más 
conveniente. El menú de la derecha (los relojes), sirve para 
girar la figura en un arbitrario número de grados. 


productividad del usuario, por una parle, y para 
poder explotar iníoi friáticamente los sólidos 
previamente introducidos en la estación, poi olía. 


Inputs del modelado de Dilos 3D 

Uno de los principales retos que presenta un 
Modelado de Sólidos es corno gobernat la 
ubicación de superficies, de modo que se sitúen 


correctamente, conformando la creación que el 
usuario persigue. 

El subsistema de Modelador de sólidos de Dilos 
3D adopta un soporte muy intuitivo: La técnica 
del Barrido (Sweep), por reflejar la mayoría de 
etapas constructivas del sólido real. 

Un barrido consiste en disponer de una cara 
plana, —aunque tan compleja como el usuario 
desee, y desplazarla por el espacio. El volumen 
barrido en el espejo es, directamente, el sólido 

















La columna, con volumen debido al efecto de la sombra y el Creación de la base paralclcpipcdica del diseño, 

relleno de color. 


considerado. En otras palabras, si el espacio lucra 
de mantequilla e introdujéramos, empujando, un 
émbolo estaríamos generando un cilindro. Pero si 
en vez de empujar en línea recta, lo hiciéramos 
circularmente obtendríamos parte de un anillo 
tórico. 

Esta técnica es muy práctica y flexible. Y 
además es potente. La potencia le viene dada 
por: 

— Las herramientas, —todo un CAD 2D 


interno capaz de dibujar en cualquier plano del 
espacio—, disponibles para la construcción de la 
cara 2D que se utilizará para Barrer. 

— Los tipos de barridos a realizar (traslación 
normal y vectorial, rotación, coniflcación 

—troncos de pirámides o conos—). 

— La posibilidad de repetir este ciclo 
indefinidamente sobre las nuevas caras del sólido 
resultante, con cualquiera de los barridos, tanto 
desplazándose hacia el exterior —generando 














El producto final, hueco. 


salientes—, como hacia el interior —generando 
vaciados—. 

Complementando las téc nicas de barrido, 
coexisten dos grupos más de herramientas, 
reclamadles en cualquier momento de la creación: 

— Obtención de Sólidos Derivados, así como su 
igual (duplicado), su simétrico, su 
complementario (molde), su reescalado, 
—proporcional o en proporciones distintas a cada 
eje (deformado)—. 


— Kjccución de- Secciones (quedándose con una 
o ambas parte), o las Uniones de dos previamente 
creados. 

— Continuar con nuevos Barridos iterativos sobre 
cualquiera de los sólidos resultantes. 

Asistiendo al modelado, están las herramientas 
de Manipulación de Sólidos en el espacio, que 
permiten tomar o soltar los sólidos que se deseen 
para aplicarles una determinada acción o 
movimiento, vía traslaciones y rotaciones, así 
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Cambio cíe* perspectivas cíe tocia l.i ligura. I.os tres ejes 
coordenados reflejan la nueva situación del objeto. 


\ ision de la lisura desde las cuatro orientaeione 



Acabamos de crear una imagen completamente real con gran facilidad y en muy poco tiempo. Sin el ordenador, esto no hubiera 
sido posible. 


como modificar sus atribuios <lc nombre, color, 
densidad, o material constitutivo. Por este 
camino se establecen posiciones de solidos en el 
espado que permiten configurar y estudiar 
complejos escenarios. 

Outputs del modelado de Pilos 3D 

Cuando se dispone de toda la geometría del 
sólido o sólidos en el ordenador, Pilos lo explota 


con distintos fines: 

I '¡suaUzación. Pilos ¡I) incorpora un potente 
subsistema de visualización, que asiste 
interactivamente al de modelado, con total 
gobierno sobre: 

— Representación Alámbrica (Wirclrame, y 
sin líneas ocultas). 

— Representación con iluminación (con o sin 
suavizado de las aristas de caras no planas del 
sólido real). 












La solución de diseño tridimensional 


— Tipo de Vistas simultáneas, incluyendo las 
tradicionales. 

— Perspectivas Axonometrías. 

— Perspectivas Cónicas con Zoom 
Automático, o a Cámara Fija. 

— Procedencia del loco de iluminación. 

— Color y sombreado de los sólidos. 

— Ampliación y reducción (zoom). 

— Centro de atención observado (Pan). 

— Posición y Distancia del Observador. 

— Cálculo. Dilos guarda la densidad de cada 
sólido definido, y puede calcular cualquier 
magnitud geométrica o ligada a volumen y 
densidad, rcclamables en cualquier estado del 
sistema: 

— Coordenadas de puntos. 

— Distancias. 

— Angulos. 

— Areas. 

— Volúmenes. 


— Pesos v Centros de Gravedad. 

— Productos v Momentos de Inercia. 

— Fuetera. 

— l isias 21) sobre el papel. Cualquier vista 

procedente del subsistema de visualización, en 
tanto esté representada por «alambres» o «con 
eliminación de líneas ocultas», es susceptible de 
obtenerse sobre papel, vía plotler, a la escala que 
se desee. F1 sistema permite igualmente pasarlas 
a otros sistemas 21). para incorporar otras 
opciones particulares del mundo del plano. 

Pre Procesador. Ditos como programa es cerrado, 
pero como sistema es abierto. Fs cerrado para 
garantizar su correcto funcionamiento, y es 
abierto en su entrada y salida para configurarse a 
la medida del usuario, por una parte, y por otra 
para que éste pueda utilizar los sólidos creados en 
otras aplicaciones cuyo primer paso obligado es 
disponer de sus geometrías (CAM, CAE). 




Por: Marize Benayas Pazos 

Generador de estrellas 

El Locomotive Basic es muy versátil a nivel gráfico, y 
convierte en una tarea sencilla el uso de instrucciones tan 
esotéricas como las funciones «seno», «coseno» y la orden 
' «origin». Para mostrarlo, hemos elegido un pequeño 
programita que genera «estrellas» en la pantalla haciendo 
uso de todas estas funciones. 


í •.».» 

5 iifw- R^ ( io *ayor: ». r . 

.”' F 

Soon’Sf*» » ' 

9 POR r = r h“£i 300: DEG 

I i? £ 0R *=0 TO 3 fi o TEP 'SO 
f 1 PLOT r*STu, 3e ° ST EP 2-3 

, 2 DRav rv*smV x le* C0S(x) .2 

I 13 DRjy >,rV *COS< x+6 

> 

14 NExt r *C0S( x+12 

« «Se >« 

,¡¡ - r,C,LL 

f ] « EETEE N J rHEW co-o b lse coe¡ 


Rotación y giros 

Este programa muestra de qué forma 
tan simple puede rotarse y/o girarse un 
«objeto» (jerga de gráficos por 
computador para designar una imagen 
total o parcial), en este caso del tipo 
polígono. Obsérvese la orden «CLG», 
línea 13, especializada en borrar la 
pantalla de gráficos solamente. 

: iones Y G ^° S os # 
Benay° s * 

DOS • -•!. 

= 10 +r»d *50 
-o 360 STE 50 *COS 

)0*SI»«P ,+32 
360 + P STEP 

OOStJB 17 -.x=x-^ :G0SU 
;LG: «EXT 

80 *I,C«».**P0S t * ,+W 

Usi*^^* c0S ^ y 



























Montes 


Existe una parte de las matemáticas 
llamada «geometría fractal» que, aparte 
de producir imágenes increíbles, se usa 
para representar las superficies más 
complejas que existen: montañas. Este 
programa simula el efecto con gran 
precisión. 


. - # MONTES * 

i -¿.rsixJfrB, 

6 FOR v=-n TO n STEP 

7 GOSUB 11 nRAV ho, -200, O 

I SS ^LlTbB^END 

H ro--ÍÑT<0*5°<v Z + z^>) : ve-INT< 

0.5*<w+z*x>> TURN 

13 PLOT ho,ve,!•RETUKN 


Parábolas 

Hablando de geometría, nada hay más 
familiar que las figuras de toda la vida, 
como las parábolas, ni nada hay más 
cómodo que dejar al ordenador que los | 
rr.lli. t 

# PARABOLAS * 

2 ' # Karize BenayasPaz 0 ^ 5 „ 

1 MODE 2■SORBER Z &-' NK °’“‘ 

í PÍINT CHRS<23)GHK*<l> Fp q q0 
5 FOR P =0 • 01 

Í nRTGIN 320.200:DEG 
O OKILin -j STEP 3 

7 FOR y=-10° 

8 x=y'2/2»p —y, 1 

9 plot -x.-y, 

10 PLOT -x-^ploT -y.x.l 

1) PLOT y y .-x, 

12 PLOT y,-X.1-PLOI y 

13 NEXT y.P UUTTP _i 

14 ORIGIN O.O-.VHILE 

15 FOR 0=1 JdkIw o, 400.1 

16 MOVE o.l: DEA» o. 

17 NEXT: VENT* 


Sinusoides 

Las ondas marinas, las del aire, las del 
sonido, las de lo que sea, tienen todas la 
misma forma y están definidas por la 
misma ecuación, bastante difícil de 
dibujar en la pantalla con eficacia..., 
hasta ahora. 


- 1 ' # 

* f tari Z o 1 p rJSOlI> Bs 
I 4 Pa 3as 

/ *3 FOR. J Rs D» 22 .. i^f 0 ' 200.. k- Aí 
-5 PLOT :° T0 lOoñ 

yi 2 >°¡ s °o*c 0 ¿?°° o e 

L D *á 200*.n ’ 200 *Sl. 

" **" « ' si 

«::r - 

























Sinusoidales 

Dispuestos a rizar el rizo, si uno coge 
una onda sinusoidal y la mezcla con 
otras de determinada forma, se obtiene 
una serie de curvas de lo más 
sorprendente. 

1 ' # Marize Benayas Pazos * 

2 MODE 2: OJRIGIN 320,200:RAD 

3 au=0.1:GOSUB 9 

4 FOR x=0 TO 1000 STEP au 

5 PLOT 200*COS<x/ll),200*SIN(x 
/i2) , 1 

6 DRAV 200*COS(<x+au)/il>,200* 
SIN< <x+au)/12),1 

7 IF INKEY$<>" M THEtí 2 

8 NEXT; CALL «¡BB18:RUN 

9 ' 

10 Í2=VAL<"0.0"+STR*tRRB*9; > 

11 il=VAL< M 0. 0"+STRS CRND*9> > 

12 IF 11=0 OR 12=0 THEN 9 

13 RETURN 




Diseñador de gráficos 

No, no, el título de este truco no es una 
broma pesada ni una exageración. Con 
12 líneas del Amstrad Basic, usted 
puede crearse el esqueleto básico de 
cualquier diseñador de imágenes. 


1 • # DISEÑADOR DE GRAFICOS # ] 

2 ' # Marize Benayas Pazos # 

3 MODE 2:x=320:y=200:GOSUB 11 

4 VHILE INKEY(9)=-l 

5 'Debes usar las teclas del c 
ursor y para terminar la tecla 

'COPIA' 

6 IF INKEY < 0> < >-1 THEN y=y+2:G 
OSUB 11 

7 IF INKEY <2> 0-1 THEN y=y-2:G 
OSUB 11 

6 IF INKEY<8)0-1 THEN x=x-l:G 
OSUB 11 

9 IF INKEY(1)0-1 THEN x=x+l:G 
OSUB 11 

10 WEND: END 

11 ' 

12 PLOT x,y.1:RETURN 


-32 


I !T “ r ^ n ^INK Pa 0°l4 : iV j 

7 1 2 3 4 5 6 7 * 9 10 11 12 - 

9 Go!sUB = 17 TO 360 ST EP 12 

U S r ? 0 ?™ 14 

Ileo •í-ojíaphics pen co:Fr 
13 NEXT r:Ca LL &BB16.END 
'o\í P CO=1 CO-0.CO1-,. G0t 

‘ ^ IF CO=0 THTTW 

RETVRN EN co “I• col= 0 

I 20 DRAV r*SI» (x+12) _ 


i 21 RETURN 


•r2*C0Síx+i 


Distorsión 

Dibujar un objeto puede ser sencillo, 
pero, a primera vista al menos, 
distorsionarlo es ya otra cuestión 
completamente distinta. Pues no es tan 
difícil. Este minúsculo listado muestra 
cómo hacerlo. 
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La versatilidad que eltán demostrando tener los ordenadores es 
go que día a día quedl más patente, sorprendiéndonos a todos 
con nuevas aplicaciones eHpmpos insospechados. Una de las que 
más jitraen es, sin duda,^H Diseño Asistido por Ordenador. 


circunfereikcia para dar sensación de perspectiva 

(figura 3). 

Se preguritarán dónde queremos ir a parar con 
todo «tm Bien, pruebe a suprimir la línea 90 del 
programa y cambie la 80 por: 

80 DRAW radiol *SIN(ángulo),radio2*COS 
(ángulo) + altura2,l 

Ya lo están viendo ¿no? Hemos unido los dos 
puntos que teníamos mediante DRAW y, 


quién noje gustaría poder hac^^^H 
atractivo un determinado trabajo, añadien' 
algún que ot® gráfi^^^^ativo, diseñar 
portada en tresj¡¡¿£^^^^^^^^^el último jue^^ 
que tenemos en menteoaesarrollar nuestras 
ocultas dotes artísticas creando objetos de mil 
formas...? 

Para poder hacer todo esto y mucho más 
tenemos que desechar la idea de que el arte y la 
imaginación no son compatibles con la técnica. El 
ordenador no es más que una herramienta como 
puedan serlo el lápiz o el papel y de nosotros 
depende el uso que le queramos dar. 

Dicho esto pongámonos manos a la obra. 

Vamos a empezar pensando en la pantalla como 
en un papel de dibujo. Si nosotros quisiéramos 
dibujar un punto en este papel tendríamos que 
decirle al ordenador el sitio donde queremos que 
lo sitúe, o sea, las coordenadas horizontales y 
verticales que ocupa en la pantalla (figura 1). Por 
ejemplo: 

PLOT 320,200 
Horiz. Vert. 

Si nuestra intención fuese la de girar ese punto 
tendríamos que hacer unos cuantos y pesados 
cálculos para situarlo en una órbita de giro 
(figura 2). Pero para eso tenemos el ordenador, 
¿no? Así que vamos a dejar que sea él quien nos 
haga el trabajo (Programa I). 

Ya hemos visto cómo gira un punto en el 
espacio. Ahora vamos a ir más lejos haciendo 
girar dos, pero en diferentes órbitas (Programa 
II). Es muy sencillo, lo único que tenemos que 
hacer es añadir una altura para cada una de las 
órbitas y variar uno de los radios de la 


El dibujo en 3D, usando 
el Lomomotive Basic, puede ser 
sorprendentemente sencillo. 



furtos 

DISPONIBLES 

hokiiohtm. 

vertical 

160 

200 _ 

320 

200 

640 

200 


HORIZOMTM. 


t FIGURA /• 



JM* 

/>"" 

”xj 

rN 

4¡- 

U-, 

r ** **oio ■ s 

*«0101 co 

•r 

NU) 

• (A) 


48 AMSTRAD ESPECIAL 






















































haciendo girar la recta resultante, conseguimos 
generar un cilindro. 

¿Y si quisiéramos generar un volumen? Esto 
parecen ser palabras mayores, pero que nadie se 
asuste. Seguro que todos han visto alguna vez 
una rueda de coche, bueno pues por obra y 
gracia de la geometría, a la pobre rueda, que no 
tiene la culpa de nada, se le ha puesto el 
nombrecito de Volumen de Revolución y no es ni 
más ni menos que un plano vertical que gira 
alrededor de un eje generando una figura. 


El arte de generar volúmenes 


Si se fijan en la figura 4 verán que hemos 
añadido dos órbitas más de giro. ¿Con qué 
propósito? Pues porque ahora no queremos girar 
dos puntos como en el ejemplo anterior sino 
cuatro (uno por cada vértice del plano). Después, 
uniendo estos puntos entre sí, definimos las 


La creación de volúmenes es la gran 
clave del diseño tridimensional. 


■■ 


Esencial para la perspectiva es la 
creación de ejes de giro. 




«trazas» o límites del plano. 

Elegimos la longitud del lado del plano a girar 
en el Programa III (línea 20), para poder calcular 
las órbitas de giro (pruebe con 100). Si cambia el 
valor del radio 1 (línea 30) verá que el resultado 
varía mucho (Ej: radiol = 1). Lo mismo ocurre si 




cambiamos el valor del resto de las variables. 

La mejor forma de entender cómo funciona y 
para qué sirve algo es «jugando» con ello. Así 
que eso es lo que vamos a hacer con nuestro 
programa. ¿Qué pasaría, por ejemplo, si 
cambiásemos las alturas o el valor de los radios? 
Para satisfacer nuestra curiosidad vamos a 
cambiar algunas líneas del programa y añadir 
otras: 



30 INPUT”-Radio 1 :”;radiol:radio2 = radio 1/2 

50 INPUT”-Altura l:”;altur 

51 INPUT’ 


Corra el progr 
ocurran. De la misr 
valor del STEP de la 
el plano gire de 
10 grados en 1 
guste. 



alores que se le 
I cambiamos 
) conseguiremos q 
(STEP 1) o de 
^omo más les 
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• FIGURA 5. 


Más difícil todavía 


Si haciendo girar un plano de cuatro vértices 
hemos generado una rueda, ¿se imaginan lo que 
saldría si girásemos un plano con 10 ó 50 
vértices? 


Podemos hacer girar un plano 
con un ilimitado número 
de vértices. 


■ 


Las posibilidades son infinitas. Pero nos 
volveríamos locos calculando cada una de las 50 
órbitas de giro, ¿verdad? 

Una solución más sencilla podría ser el empleo 
de tablas. Para este propósito utilizaremos una de 
dos dimensiones (filas y columnas). 

El número de filas vendrá dado por la cantidad 
de vértices (puntos a girar) que tenga el plano y 
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el de columnas siempre será dos: uno para 
guardar las coordenadas horizontales y otro las 
verticales de los puntos (figura 5). 

Programa IV: en el organigrama de la figura 6 
se explica su estructura. En las líneas 160 y 190 
ponemos topes máximos y mínimos a los valores 
que introduciremos por teclado para no pasarnos 
ni quedarnos cortos. 


Basta unir dos puntos con una recta 
girarla y tenemos un volumen. 


En las líneas 170 y 200 le restamos a esos 
valores los topes mínimo. ¿Por qué?, pues para 
que al generar la figura, no se salga de la 
pantalla y la podamos ver, que de eso se trata. 

Cuando el programa le pida el número de 
vértices pruebe a meter 6 y luego teclee los 
valores de la tabla de la figura 5. 

Hasta ahora hemos visto que, uniendo dos 
puntos con una línea y haciendo girar la recta 
resultante alrededor de un eje, generábamos una 
Superficie de Revolución (figuras 3 y 4). 

Después, girando un plano vertical con un 
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10 REM PR06RAHA I 

20 CLS 

30 radio=100 

40 ORIGIN 320,200:0E6 

50 FOR angu1o=0 TO 360 STEP 10 



60 PLOT radiotSINÍángulo),radiotCOS(angulo),l 


70 CLG 


80 NEKT angulo:GOTO 50 


10 REM PR06RAMA II 
20CLS 

30radiol=100:radio2=radiol/2 
40altural=100:altura2=250 
500RI6IN 320,0¡DE6 
60FOR angulo=0 TO 360 STEP 4.3 
70PLOT radioltSIN(angulo),radio2*C0$(angulo)+altural,1 
80PL0T radioUSIN(angulo),radio2*CQS(angulo)+altura2,1 
90CL6 

100NEXT ángulo 


10REM PR06RAMA III 
20CLS:INPUT'-Lado del plano 
30 radiol=100:radio2=radioí/2 
40 radio3=radiol+lado:radio4=rad 
50 altural=100:altura2=250 
60ORIGIN 320,0:0E6 
70FOR angulo=0 TO 360 STEP 4.3 
80PLOT radioltSIN(angulo),radio2tCQ3(angulo)+altural,1 
90DRAW radio34SIN(angulo),radio4*C0S(angulo)+altural, 1 
1000RAU radio3t$IN(angulo),radio44CGS(angulo)+altura2,1 
110DRAW radiollSIN(angulo),radio2*C0S(angulo)+altura2,1 
120ORAU radioitSIN(angulo),radio2IC0S(angulo)+altural,1 
13QNEXT ángulo 



lOREh PROGRAMA IV 
20M0DE 2:PAPER 0:PEN 1 

30PLOT 320,150,1:DRAW 420,150:PL0T 320,150:DRAU 320,300 
40PL0T 320,150 

50LOCATE 37,7:PRINT'300-":LOCATE 37,16:PRINT*150-' 
60L0CATE 41,17:PRINT CHR*(145):LOCATE 40,18:PRINT'320' 


determinado número de vértices, hemos generado 
un Volumen de Revolución (figura 5). 


Girar cualquier cosa 


70 LOCATE 53,17:PRINT CHRií145):L0CATE 52,18:PRINT'420* 
80 LOCATE 41,6:PAPER UPEN OlPRINT'Y* 

90 LOCATE 54,16:PRINT'X' 

100 VIN00«*1,1,80,1,3¡PAPER!1,1:PENI1,0 
110 INPUTI1,*- Nuaero de Vértices :*»vértices 
120 OIM planoívertices,2) 

130 FOR a=l TO vértices 
140 CLSIl 

150 LOCATEil,1,1:INPUTil,Coord. X 
160 IF («<320 OR «>420) THEN 140 
170 planoCa,1)=*-320 
180 LOCATEil,1,3:INPUTI1,*- Coord. Y 
190 IF (n<150 OR n>300) THEN 180 
200 planoía,2)=n-150 
210 IF a=l THEN PLOT »,n,l:60TQ 230 
220 ORAU «,n,1 
230 NEXT a 

240 REM t! SIRO DEL PLANO II 
250 CLG 

260 ORIGIN 320,150:0E6 

270 FOR angu1o=0 TO 360 STEP 10.3 
280 PLOT plano(vertices,l)tSIN(angulo), 
plano(vertices,l)/2tC0S(angulo)+plano(vertices,2), 1 
290 FOR z=l TO vértices 
300 ORAU planotz,l)tSIN(angulo), 
planoíz,1)/24C0S(ángulo)+plano( 

310 NEXT z:NEXT ángulo 
320 ENO 


10 REM PROGRAM V 
20 HOOE 2 

30 radiol=100:radio2=radiol/2 
40 altural=150:altura2=250 
50 0RI6IN 320,0:DE6 
60 INPUT’-Lados :'Jlados 
70 grados=360/lados 
80 FOR inigiro=0 TO 360 STEP 8 
90 FOR angulo=inigiro TO 360+inigiro STEP grados 
100 PLOT radioltSIN(angulo),radio2ICQS(angulo)+altural,l 
110 ORAU radioltSINlangulo+grados), 
radio2tC0S(angulo+grados)+altural,1 
120 ORAU radioltSIN(angulo+grados), 
radio2iCQS(angulo+grados)+altura2,1 
130 ORAU radiollSIN(angulo),radio2IC0S(angulo)+altura2,l 
140 NEXT ángulo 
ISO FOR p=l TO 200:NEXT:CL6 
160 NEXT inigiro 



(de 320 a 420): 

(de 150 a 300): '¡n 



la misma (línea 60). Si por ejemplo tuviera 4 
lados, la separación entre vértice y vértice sería 
de 90 grados, 360/número de lados (línea 
70-figura 7); de esta forma, cuantos más lados 
tenga, menor será la separación entre vértices y 


Cuando decimos «cualquier cosa», desde luego 
nos referimos no sólo a girar planos, sino 
volúmenes: cubos, pirámides, pentágonos... ¡en 
fin! poliedros regulares e irregulares. 

Con el Programa V podemos girar cualquier 
figura con sólo introducir el número de lados de 


viceversa. 

Todos estos programas son una pequeña 
muestra de las inmensas posibilidades del diseño 
asistido por ordenador. A su libre albedrío 
dejamos el utilizar estos mismos, ampliarlos o 
modificarlos dependiendo de sus necesidades. 
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Para solicitar 
sus tapas, 
llámenos 
al tel. (91) 
734 65 00 


No necesita encuadernación. 


gracias a un sencillo 
sistema de fijación 
que permite además 
extraer cada revista 
cuantas veces sea necesario. 
















Como se han hecho 


los mejores juegos 

* Técnica 
^ Filmation 



Crear un juego en tres 
dimensiones es una ilusión 
que cualquiera puede poner 
en práctica siguiendo estas 
explicaciones sobre la Técnica 
Filmation. 

Por: Alberto Suñer 



LT 

ace algún tiempo apareció en el mercado 
un programa para ordenador, en concreto para 
Spectrum, aunque más tarde se pasó a otros 
sistemas, entre ellos a Amstrad, que revolucionó 
en cierta forma el mundo de la programación de 
juegos, por supuesto nos estamos refiriendo al 
programa Knighl Lore. 

Estamos seguros de que cualquier aficionado al 
mundo de los juegos ha oído hablar en más de 
una ocasión de dicho programa, ya que 
representó en su día una gran innovación en el 
mundo de los videojuegos. 

Lo primero que sorprendió, en su momento, 
de dicho programa, fue la presentación 
tridimensional del escenario donde transcurre la 
acción, que luego ha sido trasladado a centenares 
de programas. 

A este método de programación se le bautizó 
con el nombre de Técnica Filmation, debido a la 
gran perfección de sus movimientos y a la 
posibilidad de que cada personaje que interviene 
en el juego pueda aparecer en planos diferentes, 
dentro de una misma pantalla de juego. 

Por todos estos motivos vamos hoy a intentar 
explicar cómo funciona la técnica mencionada 
anteriormente, que a partir de ahora podremos 
utilizar en nuestros propios programas, incluso 
desde Basic, gracias a la rutina que hemos 
preparado, la cual incluye dos nuevos comandos 
RSX que nos permitirán mover gráficos en 
pantalla con el método Filmation. 

La primera particularidad que presenta esta 
técnica de impresión en pantalla, es referente a la 
forma en que se deben confeccionar los gráficos. 

Cada uno de los personajes u objetos a los que 
se desee aplicar este tipo de impresión, deberá 













poseer, además de su imagen, una máscara de 
dicha imagen. 

Cuando nosotros realizamos un gráfico para 
utilizarlo posteriormente en nuestro programa, 
realizamos un dibujo del personaje que deseamos 
que aparezca en pantalla. Ahora bien, la 
utilización de la técnica Filmation requiere una 
imagen en inverso o en negativo de dicho dibujo. 
Esto último es lo que se denomina máscara. 

Veamos, pues, cuáles serían los pasos a seguir 
cuando nos pongamos a crear nuestro propio 
gráfico. En primer lugar, crearíamos la imagen 
del objeto que deseamos se imprima en pantalla y 
la almacenaríamos una vez acabada. 

A continuación, tomando esa misma imagen o 
dibujo como referencia, deberemos rellenar todos 
los puntos vacíos que rodean dicha imagen, 
dejando un pixel en blanco entre el dibujo 
original y su relleno. 

Una vez realizada esta operación, deberemos 
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borrar el dibujo original, con lo cual nos quedará 
su imagen inversa, a lo cual se denomina 
máscara. 

Por último, la almacenaremos a continuación 
del dibujo origianl. 

Debemos advertir que la máscara se realiza 
siempre con tinta 3, independientemente del color 
que posea la imagen original. 

Tenemos en este momento preparado nuestro 
gráfico para ser imprimido en pantalla con la rutina 
que utiliza la técnica Filmation (ver dibujo 1). 

Veamos ahora los pasos que deben ser 
realizados por la rutina de impresión, para 
conseguir que el gráfico que se desplaza por la 
pantalla, lo haga de una forma suave y sin 
parpadeos. 

Las rutinas de impresión normales dan 
movimiento a los gráficos, imprimiéndolos en 
una posición de pantalla. Seguidamente se borra 
este último colocando en su lugar lo que había 


anteriormente en pantalla y se imprime es una 
posición contigua, con lo cual se da la sensación 
de movimiento. 

Esto se consigue realizando las operaciones de 
impresión y borrado en el momento en que se 
produce el barrido de pantalla, por lo cual 
nuestros ojos no son capaces de observar dichas 
operaciones. 

Ahora bien, esto se puede realizar con bloques 
gráficos relativamente pequeños, ya que, en el 
momento en que nuestro gráfico sea lo 
suficientemente grande, las operaciones de 
impresión y borrado superarán el tiempo en que 
tarda en producirse el barrido de pantalla, con lo 
cual aparecerá ese molesto parpadeo. 

Por tanto, lo que se pretende, es intentar 
rebajar el tiempo de las operaciones de impresión 
y borrado. Se puede conseguir imprimiendo y 
borrando al mismo tiempo, con lo que nos 
quedamos con un tiempo de ejecución igual a la 


1 REfl FILMATION 

2 ORTOS OEL GRAFICO BOLA 

io rem mmmmmmmmmmm 

20 REM tm ORTOS PARA CONFECCIONAR tttt 
30 REM tttt LA PELOTA V SU RASCARA tttt 
40 REM ttttttttttttttttttttttttttttttttt 
SO REM 
G0 REM 

70 F0R N=J7530 T0 47650 
80 REA0 A:SUMA=SUMA+A 
90 POKE N, A 


100 

NEXT 


110 

!F S0RAO46A73 THEN PRINT “ERROR 

120 

DATA 

255,255,255,255,255,255,255 

130 

DATA 

255,136,51,255,255,255,238 

140 

0ATA 

0,0,255,255,255,136,0 

150 

DATA 

0,51,255,255,0,0,0 

160 

DATA 

17,255,238,0,0,0,0 

170 

DATA 

255,238,0,0,0,0,255 

ieo 

DATA 

204,0,0,0,0,119,204 

190 

DATA 

0,0,0,0,119,136,0 

200 

0ATA 

0,0,0,51,136,0,0 

210 

DATA 

0,0,51,136,0,0,0 

220 

DATA 

0,51,136,0,0,0,0 

230 

DATA 

51,136,0,0,0,0,51 

240 

DATA 

204,0,0,0,0,119,204 

250 

0ATA 

0,0,0,0,119,238,0 


260 

DATA 

0,0,0,255,238,0,0 

270 

DATA 

0,0,255,255,0,0,0 

280 

0ATA 

17,255,255,136,0,0,51 

290 

DATA 

255,255,238,0,0,255,255 

300 

DATA 

255,255,136,51,255,255,255 

310 

DATA 

255,255,255,255,255,255,255 

320 

0ATA 

255,255,255,255,0,0,0 

330 

DATA 

0,0,0,0,0,0,0 

340 

0ATA 

0,0,0,0,55,200,0 

350 

DATA 

0,0,1,59,184,0,0 

360 

DATA 

0,7,119,220,192,0,0 

370 

DATA 

15,119,220,224,0,0,14 

380 

0ATA 

255,238,224,0,1,14,255 

390 

DATA 

238,240,0,1,14,255,238 

400 

DATA 

240,0,3,29,255,255,112 

410 

DATA 

128,3,29,255,255,112,128 

420 

DATA 

3,29,255,255,112,128,3 

430 

DATA 

29,255,255,112,128,3,29 

440 

DATA 

255,255,112,128,1,14,255 

450 

DATA 

238,240,0,1,14,255,238 

460 

DATA 

240,0,0,14,255,238,224 

470 

0ATA 

0,0,15,119,220,224,0 

480 

DATA 

0,7,119,220,192,0,0 

490 

DATA 

1,59,184,0,0,0,0 

500 

DATA 

55,200,0,0,0,0,0 

510 

DATA 

0,0,0,0,0,0,0 

520 

0ATA 

0,0,0,0,0,0,0 

530 

DATA 

0,0,0,0,0,0,0 


















PROGRAMA CARGADOR 


1 REA FILHATION 

2 REli PROGRAMA CARGADOR 
10 FOR N=J8000 T0 4822F 
20 REAO A:SUMA=SÜMA+A 
30 POKE N,A 

40 NEXT 

50 IF SUMAO5740G THEN PRINT 'ERROR EN DATAS' 

60 DATA 1,9,128,33,26,128,195 

70 DATA 209,188,17,128,195,30,128 

80 DATA 195,100,128,79,206,83,80 

90 DATA 82,73,84,197,0,0,0 

100 DATA 0,0,221,94,0,221,86 

110 DATA 2,221,110,4,221,102,5 

120 DATA 34,52,130,237,83,57,130 

130 DATA 237,83,61,130,221,110,6 

140 DATA 221,102,7,34,54,130,221 

150 DATA 78,8,221,70,10,120,50 

160 DATA 50,130,121,50,49,130,4 

170 DATA 4,12,12,237,67,59,130 

180 DATA 65,33,0,0,17,8,0 

190 DATA 25,16,253,34,63,130,195 

200 DATA 157,128,221,110,0,221,102 

210 DATA 2,34,57,130,237,91,61 

220 OATA 130,1?3,189,32,4,62,2 

230 DATA 24,7,66,3,175,24,2 


240 DATA 62,1,50,51,130,122,188 
250 DATA 32,4,62,2,24,7,56 
260 DATA 4,62,1,24,1,175,50 
270 DATA 56,130,34,61,130,84,33 
280 DATA 195,183,128,33,65,130,237 
290 DATA 75,59,130,62,2,50,51 
300 DATA 130,50,56,130,237,91,57 
310 DATA 130,205,201,129,205,18,129 
320 DATA 201,33,65,130,237,75,59 
330 DATA 130,229,213,197,205,201,129 
340 OATA 205,212,128,205,18,129,205 
350 DATA 69,129,193,209,225,205,110 
360 DATA 129,201,33,65,130,237,91 
370 DATA 63,130,58,56,130,254,2 
380 DATA 40,5,254,0,40,2,25 
390 DATA 25,235,58,51,130,254,2 
400 DATA 40,5,254,1,40,2,19 
410 DATA 19,33,113,132,58,50,130 
420 DATA 203,39,203,39,203,39,71 
430 DATA 137,6,0,58,45,130,79 
440 DATA 237,176,19,13,133,16,242 
450 DATA 201,237,91,54,130,33,65 
460 DATA 130,237,75,63,130,9,35 
470 DATA 221,33,113,132,58,50,130 
480 DATA 203,39,203,39,203,39,71 
490 DATA 197,58,49,130,71,126,221 
500 DATA 119,0,26,166,113,19,35 
510 DATA 221,35,16,243,35,35,193 
520 DATA 16,233,201,237,91,52,130 
530 DATA 33,65,130,237,75,63,130 
540 DATA 9,35,58,50,130,203,39 


550 DATA 203,39,203,39,71,197,58 
560 DATA 49,130,71,26,182,119,13 
570 DATA 35,16,249,35,35,193,16 
580 DATA 239,201,221,229,205 , 33 , 130 
590 DATA 235,36,44,120,203,39,203 
600 DATA 33,203,39,50,47,130,121 
610 DATA 50,48,130,213,235,33,176 
620 DATA 191,66,22,0,29,25,17 
630 DATA 80,0,25,16,253,221,225 
640 DATA 58,47,130,71,24,21,124 
650 DATA 230,56,254,56,40,6,124 
660 DATA 198,8,103,24,8,17,80 
670 DATA 0,124,238,56,103,25,197 
680 DATA 229,58,48,130,71,197,221 
690 DATA 126,0,119,35,221,35,133 
700 DATA ¡6,245,225,193,16,214,221 
710 DATA 225,201,221,223,235,36,44 
720 DATA 120,203,33,203,39,203,39 
730 DATA 50,47,130,121,50,48,130 
740 DATA 213,235,33,176,191,66,22 
750 DATA 0,29,25,17,80,0,25 
760 DATA 16,253,221,225,58,47,130 
770 DATA 71,24,21,124,230,56,254 
780 DATA 56,40,6,124,198,8,103 
790 DATA 24,8,17,80,0,124,238 
800 DATA 56,103,25,197,229,58,48 
810 DATA 130,71,197,128,221.119,0 
820 OATA 35,221,35,193,16,.245,225 
830 DATA 193,16,214,221.225,201.205 
840 DATA 25,189,197,1,100,0,11 
850 DATA 120,177,32,251,193,201,0 






SI lí: 



ZZ-Z3, 







I 


l •’» mi 

2B 

TI 


mitad del utilizado con el método anterior. 

Vamos a ver, pues, qué pasos deberemos 
seguir para conseguir de una sola vez la 
impresión y el borrado del gráfico, reponiendo al 
mismo tiempo lo que había anteriormente en 
pantalla. 

Para ello, deberemos preparar un espacio de 
trabajo en memoria en el cual colocaremos el 
trozo de pantalla donde se debe imprimir la 
máscara y el gráfico propiamente dicho, y otro 
espacio en el cual almacenaremos el trozo de 
pantalla que debe ser repuesto una vez el gráfico 
haya cambiado de posición. 

Una vez preparados estos buffets de trabajo, 


leeremos la porción de pantalla donde se va a 
imprimir el gráfico y la traspasaremos a dicho 
buffer. Después colocaremos allí mismo la 
máscara del gráfico, mediante operaciones AND, 
con lo cual únicamente nos quedará la parte del 
trozo de pantalla donde el gráfico imprimirá, al 
mismo tiempo almacenaremos el contenido del 
buffer donde se va a colocar el gráfico, en otro 
espacio de memoria, para luego reponerlo. 

Seguidamente colocaremos en ese mismo buffer 
el gráfico original, mediante operaciones OR, con 
lo que conseguiremos una copia de lo que debe 
aparecer en pantalla. 

Ahora únicamente nos queda imprimirlo en 
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pantalla con la rutina correspondiente, que será 
una rutina de impresión normal, la cual 
traspasará dicho buffer de trabajo a la pantalla. 

La longitud del buffer de pantalla, deberá ser 
la misma que la del gráfico que se desee 
imprimir, mientras que la dimensión del buffer 
de trabajo deberá ser la misma que la del gráfico, 
aumentando en dos la altura y la anchura (ver 
dibujo 2). 

Veamos a continuación cuáles son los nuevos 
comandos RSX que nos permitirán la utilización 
desde Basic de la técnica Filmation. 

Como se ha comentado anteriormente, esta 
técnica se basa en la operación de impresión y 
borrado simultáneo del gráfico a imprimir; por 
tanto, los desplazamientos que se produzcan no 
pueden ser en ningún momento bruscos, es decir 
saltos de más de un carácter en cualquier sentido, 
ya que la rutina quedaría sin efecto al no reponer 
el trozo de pantalla en el que se encontraba el 
gráfico anteriormente. 

En primer lugar tenemos el comando que nos 
permitirá inicializar la impresión de un gráfico, 

ION,A,B,DM,DG,X,Y 

donde cada uno de los parámetros corresponde: 


A . Alto del gráfico 

B . Ancho del gráfico 

DM. Dirección de la máscara 

DG . Dirección del gráfico 

X . Coordenada vertical 

Y . Coordenada horizontal 
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PROGRAMA DEMO 


: REN FIWATION 
2 REÍ! PROGRAMA DEBO 

¡0 BODE ¡:BORDER 0:IKK 0,0:IKK 1,24:INC 2.231INK 3,6 
20 ME MORY 9999:LOAD * pibubin*,48000 
30 CALL 88000 


100 G0SU8 270 

no soto ?o 
¡20 y=y-í:j(=x+: 

130 IF 7=4 T«EN Y=Y+I: X=X-1:GOTO 70 
140 IF *=72 THEN Y=Y+!:<=X-i:G0 T 9 r 
¡SO 60SUB 27? 

160 GOTO 120 
17? x=x-t:Y=Y-; 


240 IF 4=0 THE. 4=X+::V=Y-l:úOTO 70 

250 60SVB 270 

260 GOTO 220 

270 1SPRITt,Y, X 

280 FOR n=l TO 60:NE*T 

290 RETURN 

300 p =0 

;!0 POR n=7 TO 15 





40 60SUB 300 

50 ION,3,6,20000,20144,5,1 
60 Y=S:X=1 
70 Y=Y+l:X=X+l 

80 !F Y=22 THEN X=X-11Y=Y-1:GOTO 120 
90 IF *=72 THEN Y=Y-::X=*-i:GQTO 220 


180 IF Y=1 THEN X=*n:Y=v*l:GQTQ 220 
190 IF 1=0 THEN *=*n;Y=Yn:GOTG 120 
200 GOSUB 270 
210 GOTO 170 
220 X=X-l:Y=Y+! 

230 IF Y=22 t hEN x=X* 1 :Y=Y-::GOTO 170 


El segundo nuevo comando, que nos permitirá 
imprimir nuestro gráfico en pantalla es: 

ISPRITE,X,Y 

donde «X» e «Y» indicarán las coordenadas 
vertical y horizontal, respectivamente. 

Para dar una idea del funcionamiento de 
nuestra rutina, hemos preparado un programa 
demostración, en el cual se podrá observar tanto 
el funcionamiento de los nuevos comandos, así 
como el movimiento que se obtiene con la 
utilización de la técnica Filmatwn. 

Este programa de demostración utiliza un 
gráfico con su máscara, que deberán encontrarse 


320 FOR ,=2 T0 39 
330 F'=F'+l:IF P=4 THEN P=; 

340 PEN p 

350 LOCATE y,n:PRIN T ?hR$ 702 ; 
360 NEXT y:NEl T n 
370 RETURN 

■ I 

























PROGRAMA ENSAMBLADOR 

1150 

1160 


CALL PINTB 

POP BC 







1170 


POP 

OE 







1180 


POP 

HL 

1 ¡FILMATION 


570 

CP 

L 

1190 


CALL PINBUF 

2 .¡LISTADO ENSAMBLADOR 

580 

JR 

NZ,ÑOÑIS 

1200 


RET 


to 

0R6 

18000 

590 

LO 

A,2¡PARADO 

1210 

¡BC..CORDENADAS EN LA PANTALLA 

20 



600 

JR 

P0NFL1 

1220 

¡ ’ IMPRESION 

30 



610 N0MIS: 

JR 

C.VADER 

1230 

1 



10 ¡1MRUTINA DE IMPRESION SISTEMA FILMATIONm 

620 

XOR 

A 

1210 

i 



SO 



630 

JR 

P0NFL1 

1250 

¡COLOCA TROZO PANTALLA EN 

60 



610 VADER: 

LD 

A,i 

1260 

¡EL BUFFER 


70 



650 P0NFL1: 

LD 

( IZOER),A 

1270 

¡ 



80 

LD 

BC,TABLA 

660 

LD 

A, 0 

1280 

TROZPA: 

LD 

HL.BUFFER 

90 

LD 

HL,ESPADE 

670 

CP 

H 

1290 


LD 

DE,(L0N6); 8KANCH0 

100 

JP 

«COI 

680 

JR 

NZ,NOMISI 

1300 


LO 

A,(ARRASA) 

110 TABLA: 

DEFW ÑAME 

690 

LO 

A,2 

1310 


CP 

2 

120 

JP 

INISPR 

700 

JR 

P0NFL2 

1320 


JR 

Z,TR0ZE2 

130 

JP 

M0VSPR 

710 nomisi: 

JR 

C, VABAJ 

1330 


CP 

0 

110 ÑAME: 

DEFM 

'0* 

720 

LD 

A, 1 

¡310 


JR 

Z.TR0ZE3 

150 

DEFB 

■NU»80 

730 

JR 

P0NFL2 

1350 


A00 

HL, DE 

160 

DEFM 

•SPRIT” 

710 VABAJ: 

XOR 

A 

1360 

TR0ZE2: 

AOD 

HL , OE 

170 

DEFB 

*E"*»80 

750 PQNFL2: 

LO 

(ARRABA),A 

1370 

TRQZE3: 

EX 

DE.HL 

180 

DEFE 0 

760 

LO 

(POSANT),HL 

1380 


LD 

A, ( IZDER) 

190 ESPADE: 

OEFS 1 

770 

LD 

0,H 

1390 


CP 

2 

200 



780 

LO 

E,L 

1100 


JR 

Z,TROZEI 

210 



790 

JP 

MOVMAN 

1110 


CP 

1 

220 INISPR: 

LO 

E,(II+0) 

800 



1120 


JR 

Z,TROZEM 

230 

LD 

0,(1X42) 

810 JL+ 



1130 


INC 

DE 

210 

LO 

L, ( IX+l ) 

820 ¡WPIN8UFW 

1110 

trozei: 

INC 

DE 

2S0 

LO 

H t <IX+5) 

830 *L- 



1150 

TR0ZEN: 

LD 

HL,BUFPAN 

260 

LO 

(DIR6RA),HL 

810 ¡ INICIALI2ACI0N 

1160 


LO 

A,(ALTO) 

270 

LO 

(ROSNAN),DE 

850 ; 



1170 


SLA 

A 

280 

LD 

(P0$ANT),DE 

860 ¡DE-C00R0ENA0AS DE IMPRESION 

1180 


SLA 

A 

230 

LO 

L,< IX+6) 

870 ¡ 



1190 


SLA 

A 

300 

LD 

K, ( IX+7) 

880 INIMAN: 

LO 

HL.BUFFER 

1500 


LO 

8,A 

310 

LO 

( 0 IRMAS),HL 

890 

LO' 

BC,(DIMENS) 

1510 

TRBUl: 

PUSH BC 

320 

LO 

C,(IX+8) 

900 

LO 

A,2 

1520 


LO 

B , 0 

330 

LO 

B,CIX+10) 

910 

LO 

(IZOER),A 

1530 


LD 

A,(ANCHO) 

310 

LO 

A,8 

920 

LO 

(ARRABA),A 

1510 


LD 

C,A 

350 

LD 

(ALTO),A 

930 

LO 

DE,(POSHAN) 

1550 


LDIR 


360 

LO 

A,C 

910 

CALL 

PANNEM 

1560 


INC 

DE 

370 

LO 

(ANCHO),A 

950 

CALL 

PINNAS 

1570 


INC 

DE 

380 

INC 

B 

960 

RET 


1580 


POP 

BC 

390 

INC 

8 

970 ¡ 



1590 


DJNZ TRBUl 

100 

INC 

C 

980 ¡MOVIMIENTOS 


1600 


RET 


110 

INC 

C 

990 ; 



1610 

¡ 



120 

LO 

< DIMENS), BC 

1000 ¡DE-COORDENADAS 0E IMPRESION 

1620 

¡PINTA MASCARA EN EL BUFFER 

130 

LO 

B.C 

1010 ¡IZDER=0 IZQUIERDA 

1630 

¡Y LEE TROZPAN 

110 

LD 

HL , 0 

1020 ¡IZ0ER= 

1 DERECHA 

¡610 

« 



150 

LO 

DE,8 

1030 ¡IZDER= 

2 PARADO 

1650 

pinnas: 

LO 

DE,(DIRMAS) 

160 SUMBU: 

A00 

HL, DE 

¡010 ¡0IRGRA-DIRECCI0N GRAFICO 

1660 


LD 

HL.BUFFER 

170 

0JNZ 

SUN8U 

1050 ¡DIRMAS 

-DIRECCION MASCARA 

1670 


LO 

8C,(LONfi) 

180 

LO 

(L0N6),HL 

1060 ¡ 



1680 


ADD 

HL, BC 

130 

JP 

INIMAN 

1070 novman: 

LD 

HL.BUFFER 

1690 


INC 

HL 

500 



1080 

LD 

BC,(DIMENS) 

1700 


LD 

IX,BUFPAN 

510 



1090 

PUSH HL 

1710 


LO 

A,(ALTO) 

520 M0VSPR: 

LO 

L,(IX+0) 

1100 

POSH DE 

1720 


SLA 

A 

530 

LD 

H,(IX+2) 

1110 

PUSH BC 

1730 


SLA 

A 

510 

LD 

(P0SMAN),HL 

1120 

CALL 

PANMEM 

1710 


SLA 

A 

550 

LD 

DE,(P0SANT) 

1130 

CALL TROZPAN 

1750 


LD 

6,A 

560 

LD 

A,E 

1110 

CALL PINNAS 

1760 

nasbu: 

PUSH BC 



en la dirección de memoria 20000. 

Para cargar este gráfico, deberemos copiar el 
programa Basic generador del mismo y de su 
máscara y ejecutarlo, salvándolo a continuación 
en disco o cinta, teniendo en cuenta que cuando 
se desee utilizar el programa de demostración 
deberemos cargarlo en la dirección de memoria 
indicada antes. 












1770 


LO 

A,(ANCHO) 

2330 

LD 

HL.IC000-80 

3010 


DEC 

E 

1780 


LO 

B, A 

2100 

LD 

B,D 

3020 


ADD 

HL.DE 

1790 

HASBl! 

LD 

A,(HL) 

2110 

LD 

0,0 

3030 


LD 

DE, 80 

1800 


LO 

(IX+0),A 

2120 

DEC 

E 

3010 

L.BUC: 

ADD 

HL.DE 

1810 


LD 

A,(DE) 

2130 

ADC 

HL.DE 

3050 


DJNZ 

L BUC 

1820 


ANO 

(HL) 

2110 

LD 

DE, 80 

3060 


POP 

IX 

1830 


LD 

(HL) , A 

2150 A.BUC: AD0 

HL.DE 

3070 


LO 

A,(ALTl) 

1310 


INC 

DE 

2160 

DJNZ 

A_BUC 

3080 


LD 

6 ,A 

1850 


INC 

HL 

2170 

POP 

IX 

3090 


JR 

COLOL 

1850 


INC 

IX 

2180 

LO 

A.(ALTl) 

3100 

H.BUC: 

LD 

A, H 

1870 


DJNZ 

MASB1 

2190 

LO 

8 ,A 

3110 


AND 

56 

1880 


INC 

HL 

2500 

JR 

C0L0E 

3120 


CP 

56 

1890 


INC 

HL 

2510 E.BUC: LD 

A,H 

3130 


JR 

Z,H.PAS 

1900 


POP 

BC 

2520 

ANO 

56 

3110 


LD 

a.h” 

1910 


DJNZ 

HASBU 

2530 

CP 

56 

3150 


ADO 

A, 8 

1920 


RET 


2510 

JR 

Z,E PAS 

3160 


LD 

H.A 

1930 

i 



2550 

LD 

A, H 

3170 


JR 

COLOL 

1910 

¡PINTO 

FISURA EN EL BUFFER 

2560 

ADD 

A,8 

3180 

H PAS: 

LD 

DE, 0080 

1950 

¡ 



2570 

LD 

H, A 

3190 


LO 

A , H 

1960 

PINTB: 

LD 

DE,(DIRSRA) 

2580 

JR 

C0L0E 

3200 


XOR 

56 

1970 


LD 

HL,BUFFER 

2590 E.PAS: LD 

DE,0080 

3210 


LD 

H, A 

1980 


LD 

BC,(L0NG) 

2600 

LD 

A,H 

3220 


ADD 

HL.DE 

1990 


ADO 

HL , BC 

2610 

X0R 

56 

3230 

colol: 

PUSH 

BC 

2000 


INC 

HL 

2620 

LD 

H, A 

3210 


PUSH 

HL 

2010 


LD 

A,(ALTO) 

2630 

ADD 

HL.DE 

3250 


LD 

A,(ANCHI) 

2020 


SLA 

A 

2610 COLOE: PUSH 

BC 

3260 


LD 

B, A 

2030 


SLA 

A 

2650 

PUSH 

HL 

3270 

H.BUC i: 

PUSH 

BC 

2010 


SLA 

A 

2660 

LD 

A,(ANCHI) 

3280 


LD 

A, (HL) 

2050 


LD 

6 ,A 

2670 

LO 

B, A 

3290 


LD 

(IX+0),A 

2060 

figbu: 

PUSH 

BC 

2680 E.BUC11 PUSH 

BC 

3300 


INC 

HL 

2070 


LO 

A, (ANCHO) 

2690 

LD 

A, (IX+0) 

3310 


INC 

IX 

2080 


LD 

B, A 

2700 

LD 

(HL), A 

3320 


POP 

BC 

2090 

FIGBl: 

LO 

A,(DE! 

2710 

INC 

HL 

3330 


DJNZ 

H.BUC1 

2100 


0R 

(HL) 

2720 

INC 

IX 

3310 


POP 

HL 

2110 


LO 

(HL), A 

2730 

POP 

BC 

3350 


POP 

BC 

2120 


INC 

DE 

2710 

DJNZ 

E BUC1 

3360 


DJNZ 

H BUC 

2130 


INC 

HL 

2750 

POP 

HL 

3370 


POP 

IX 

2110 


DJNZ 

FI6B1 

2760 

POP 

BC 

3380 


RET 


2150 


INC 

HL 

2770 

0JNZ 

E.BUC 

3390 

FLYBAK: 

CALL 

IB019 

2160 


INC 

HL 

2780 

POP 

IX 

3100 


PUSH 

BC 

2170 


POP 

BC 

2790 

RET 


3110 


LD 

BC,100 

2180 


DJNZ 

FISBU 

2800 ¡HL= 

¡DIRECCION DEL 6RAFICQ 

3120 

paus: 

DEC 

BC 

2190 


RET 


2810 ¡DE¡ 

¡COORDENADAS V12S6+X 

3130 


LO 

A,B 

2200 

iHL=DIRECCI0N DEL GRAFICO 

2820 ¡BC= 

¡DIMENSIONES 

3110 


OR 

C 

2210 

¡DESORDENADAS Y1256+X 

2830 ¡ 



3150 


JR 

NZ.RAUS 

2220 

¡BC=DIHENSI0NES 

2810 ¡ 



3160 


POP 

BC 

2230 

» 



2850 PANHEH: PUSH 

IX 

3170 


RET 


2210 

1 



2860 

EX 

DE, HL 

3180 




2250 

PINBUF: 

PUSH 

IX 

2870 

INC 

H 

3190 

ALTl: 

OEFS 

1 

2260 


CALL 

FLYBAK 

2880 

INC 

L 

3500 

ANCHI: 

DEFS 

i 

2270 


EX 

0E.HL 

2890 

LD 

A, B 

3510 

ANCHO: 

OEFS 

1 

2280 


INC 

H 

2900 

SLA 

A 

3520 

ALTO: 

DEFS 

1 

2290 


INC 

L 

2910 

SLA 

A 

3530 

IZDER: 

DEFS 

1 

2300 


LD 

A,B 

2920 

SLA 

A 

3510 

DIRSRA: 

DEFS 

2 

2310 


SLA 

A 

2930 

LD 

(ALTl).A 

3550 

DIRHAS: 

DEFS 

2 

2320 


SLA 

A 

2910 

LD 

A,C 

3560 

ARRABA: 

DEFS 

i 

2330 


SLA 

A 

2950 

LD 

(ANCHI),A 

3570 

POSHAN: 

DEFS 


2310 


LO 

(ALTl).A 

2960 

PUSH 

DE 

3580 

0IHENS: 

DEFS 

2 

2350 


LD 

A,C 

2970 

EX 

DE.HL 

3590 

P0SANT: 

DEFS 

•*j 

2360 


LD 

(ANCHI),A 

2980 

LO 

HL.HC000-80 

3600 

L0N6: 

DEFS 

2 

2370 


PUSH 

DE 

2990 

LD 

8,0 

3610 

BUFFER: 

DEFS 

560 

2380 


EX 

DE, HL 

3000 

LD 

0,0 

3620 

BUFPAN: 

DEFS 

210 


w 



Esta figura la pondremos en disco o cinta de la 
siguiente forma: 

SAVE“BOLA”,B,20000,288 

Para poder ejecutar la rutina, deberemos en 
primer lugar teclear el programa cargador Basic, 
y ejecutarlo. En caso de que aparezca algún 
error, se deberán revisar las líneas DATA. 


Una vez ejecutado sin errores, podremos 
salvarlo en disco o cinta de la siguiente forma: 

SAVE“FILMA”,B,&8000,&22F 

Cuando se desee utilizar, deberemos cargarlo 
en memoria a partir de la dirección &8O00, 
haciendo una llamada a dicha dirección para 
inicializar los nuevos comandos RSX. 
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rear imágenes en una pantalla siempre 
es un desafío a la imaginación, a la creatividad 
y a la peripecia programando. Por todo 
ello, AMSTRAD Semanal organiza 
entre todos sus lectores un concurso de diseño 
gráfico sujeto a las bases que se detallan más 

ÍOw 


Bases del concurso 


1. Entran a concurso todos los Amstrad 
CPC, PCW y el PC. 

2. Se establecen tres categorías distintas 
dentro del concurso, cada una de ellas 
correspondiente a cada uno de los ordenadores 
citados en el punto 1. Hemos elegido este método 
para que ninguno de los concursantes se 
encuentre en desventaja debido a que las 
capacidades gráficas de su máquina sean menores 
que las de otro modelo Amstrad. 

3. El concurso se refiere solamente a diseños 
gráficos efectuados en pantalla, aunque no 
importa el método escogido para generarlos. Es 
posible emplear cualquiera de los programas de 
diseño gráfico comerciales que existen, así como 
crear la imagen empleando un programa en Basic 
o Código Máquina. 

4. Las imágenes se enviarán a nuestra 
redacción en cinta o disco, y pueden ser un 
programa Basic que las genere, un bloque de 
bytes o el método que se considere más 
adecuado, teniendo en cuenta que el jurado que 
elija los ganadores sólo considerará lo que se vea 
en pantalla a nivel gráfico: ni sonido, ni 
animación. 

5. El jurado, constituido por profesionales del 
diseño, ilustración y programación, observará 
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cada una de las pantallas durante el tiempo 
necesario y mediante los métodos que estime más 
oportunos, seleccionando los ganadores. Su 
decisión será inapelable. 

6. El plazo de recepción de las pantallas 
finalizará el día 1 de septiembre de 1987. 

7. Ninguno de los diseños enviados se 
devolverá al remitente. AMSTRAD Semanal se 
reserva los derechos de publicación de los mismos 
en el momento y condiciones que estime 
oportunos, citando a su autor. 

8. Los ganadores se harán públicos en la 
segunda quincena del mes de septiembre de 
1987, a través de la revista AMSTRAD Semanal. 

9. En total, se entregarán nueve premios, dos 
por categoría. Los primeros serán los siguientes: 

Amstrad CPC: UN DIGITALIZADOR DE 
VÍDEO 

Amstrad PCW: TABLETA GRÁFICA 
GRAFPAD 

Amstrad PC: TABLETA GRÁFICA 
GRADPAD-5 

y los segundos, dos para cada categoría, serán 
unas excelentes cadenas musicales alta fidelidad y 
estéreo. 

10. El simple hecho de participar en el 
concurso presupone la aceptación incondicional 
de sus bases. 

Nuestra dirección es: 

AMSTRAD Semanal. 

Carretera de Irún, km. 12,400. 

28049 Madrid. 

REFERENCIA: CONCURSO GRÁFICO 

AMSTRAD SEMANAL. 
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Por: David Sopuerta 
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* d n un numero especial 
dedicado a los gráficos por 
ordenador no podía fallar 
una recopilación de todo lo 
que hemos publicado acerca 
del tema a lo largo de 80 
números. Estamos seguros de 
que es esencial para cualquier 
lector que desee mantener 
actualizada una librería de 
rutinas para usarla en sus 
propios programas. Por 
razones de espacio, no hemos 
podido incluir los programas 
en el texto, pero sí los hemos 
reunido en un disco que está 
a disposición de todos los 
interesados. 

Easy Draw 


Es un programa de utilidad 
para la gestión de gráficos, 
escrito parte en Basic y parte en 
lenguaje máquina, que 
podremos emplear para crear 
bonitas pantallas con las que 
adornar nuestros programas de 
juegos o utilidades. 

El dibujo creado se puede 
grabar, ¡cómo no!, en cinta o 
en disco para poder ir dándole, 
poco a poco, los pequeños 
retoques que le conviertan en la 
obra maestra que deje 


satisfechos a propios y extraños. 

Las instrucciones son 
sencillas, pero, debido a que 
hay 19 opciones y cada una 
requiere un «pelín» de práctica, 
recomendamos irlas leyendo 
despacio, para asimilarlas 
correctamente. Ahí van: 


Activa/desactiva 
modo dibujo 
Línea hasta la 
posición del 
fabulador 
Borrar pantalla 
Círculo/polígono 
Dibujar con/sin 
fabulador 
Rellenar 
superficie 
Menú principal 
Cargar figuras en 
memoria 
Desplazamiento 
del cursor 
Cargar pantalla 
en memoria 
Guardar figuras 
en memoria 
Cambio de color 
Círculo rápido 
Recuperación 
texto/gráficos 


CTRL + B 


SHIFT + TAR 
SHIFT + CLR 
CTRL + CLR 

CTRL + D 

CTRL + F 
CTRL + G 

CTRL+I 

CTRL +J 

CTRL + L 

CTRL + M 
CTRL + P 
CTRL + Q 

CTRL + T 


Número 1, página 18. 


Chargen 

Es un generador de caracteres 
escrito en Basic, que nos 
permitirá diseñar a nuestra 
medida cualquier juego de 
caracteres. 



Se incluyen en él gran 
cantidad de opciones tales como 
rotación e inversión de los 
caracteres, efecto de espejo 
horizontal y vertical, etc. 

Su manejo no presenta 
excesivas dificultades, ya que las 
opciones se gestionan a base de 
un menú principal claro y 
preciso. Se ejecuta con RUN 
“4-CHARGE”. 

Número 4, página 14. 


Algún comando RSX 



Los comandos RSX son, en 
pocas palabras, unos comandos 
adicionales que se escriben 
como subrutinas en Código 
Máquina. Pueden estar situados 
en cualquier lugar de la 
memoria RAM y para 
invocarlos han de ir precedidos 
por el signo «I». 

En esta ocasión están situados 
a partir de la dirección &8000 
y, por tanto, habrá que 
activarlos, una vez ejecutado el 
programa cargador, mediante la 
orden CALL &8000. 

Los comandos gráficos que se 
nos presentan son: 


IGPEN, 

opción color Asigna la pluma 
para gráficos y la 
opción de 
ploteado. 

IGPAPER, 

color Asigna el color del 
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papel para 
gráficos. 

lFILL,x,y Llena de color una 
color figura. 

Seguro que les vendrá muy 
bien a los poseedores de 
CPC-464. 

Cargador: 10-RSX-1. BAS 
Demo: 10-RSX-2.BAS 
Número 10, página 10. 


Sprites en el Amstrad 


A 


Desgraciadamente el Basic del 
Amstrad no los incorpora, 
aunque, no se preocupe, 
intentaremos simularlos. 

El programa 11-SPRI1 .BAS 
nos muestra cómo actúa la 
opción XOR en unión de la 
opción gráfica. 11-SPRI2. BAS es 
una demostración de la 
completa interacción de una 
rutina principal y otra que se 
ejecuta por interrupciones. 

Número 11, página 14. 



Los programas Basic 
13-MAQjl a 13-MAQ-3 nos dan 
una idea bastante exacta de 
cómo está organizada la 
memoria de pantalla de nuestro 
ordenador. Así podremos 
realizar gráficos increíblemente 
rápidos, y de gran suavidad de 


movimiento por medio de 
sprites. 

Número 13, página 28. 

Rotación de Caracteres FH- 

Dos nuevos comandos RSX: 
IPRINT.UP 
IPRINT.DOWN 

El primero rota todos los 
caracteres de una cadena 
alfanumérica y los imprime 
verticalmente hacia arriba. El 


binario que será la encargada 
de llevar a nuestro «duendecillo» 
de paseo por toda la pantalla. 
Para que funcione 
correctamente teclee: 

MODE 0: CALL &8000 

y utilice los cursores para el 
movimiento. 

El tercero es un editor de 
sprites que contiene sus propias 
instrucciones de manejo y su 
utilización es bastante sencilla. 
Número 15, página 26. 



segundo hace lo mismo, pero de 
arriba a abajo, rotándolos en 
sentido contrario. 

Se activan mediante CALL 
&A000, después de ejecutar el 
cargador (RUN “14-RSX”), y 
se utilizan como comandos de la 
siguiente manera: 

CPC-464 CPC-664 y 6128 

frase! - “AMSTRAD" frase! = "AMSTRAD" 

IPRINT.UP,@frase$ IPRINT.UP, frase! 

IPRINT.DOWN,“ 
AMSTRAD” 

Número 14, página 20. 


Diseñando sus Sprites 

Tres nuevos programas nos 
ayudarán a perfeccionar nuestra 
técnica sobre manejo de sprites: 
15-MAQ-l a 15-MAQ-3. El 
primero es un ejemplo de sprite 
dispuesto a ser utilizado por el 
programa en Código Máquina. 

El segundo es una rutina en 



Choques de Sprites 

Mediante los programas 
16-MAQ-l y 16-MAQ-2 
aprenderemos a diseñar un 
nuevo sprite y, además, a 
moverlo por la pantalla así 
como detectar si colisiona con 
otro que está fijo en la pantalla. 

Primeo se ejecutará el que 
define el gráfico y, después de 
ejecutar el cargador, pondremos 



en funcionamiento la rutina 
mediante CALL &8000. 
Número 16, página 32. 



Cambio de Colores 

¿Cuál es el color idóneo para 
diferenciar claramente la tinta y 
el papel? Ya estamos hartos del 
azul marino y el amarillo 
brillante. 

Este pequeño programa nos 
ayudará a elegir los colores más 
de acuerdo con nuestro gusto, 
con el toque de una tecla. Para 
ello: 
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RUN “20-ANALI” 


Número 20, página 21. 


Magnificación 
de Caracteres 


■■ 



pantalla de texto y poder 
utilizarla en nuestros propios 
programas. Bascomp traducirá al 
Basic dicha pantalla. Increíble 
pero cierto. 

Compruébelo con RUN 
“29-ANALI” 

Número 29, página 24. 


Como su nombre indica, nos 
permite diseñar una pantalla de 
caracteres aumentados de 
tamaño para usarla después 
como presentación de cualquier 
tipo de programa. Es 
perfectamente compatible con 
Easydraw y admite cualquier 
juego de caracteres creados con 
Chargen. 

Ejecútelo con: 

RUN “22-MAGNI” 

y, ¡adelante con su vena 
artística! 

Número 22, página 20. 


Generador de Ventanas 



Les presentamos un 
programita que genera ventanas 
y, además, graba y lee del disco 
los datos que las definen. 
Muestra un método de trabajo 
de gran utilidad que, 
sorprendentemente, no se usa 
demasiado, pues parece que 
tuviera mala prensa o fuera 
desconocido. Póngalo en 
marcha con: 


RUN “24-ANALI” 


Número 24, página 16. 


Genpant 

No es un generador de 
programas, sino algo que 
explica cómo crear pantallas de 
presentación de datos para 
nuestros propios programas. 
Además, con él aprenderemos 
bastante sobre matrices y 
ficheros. 

RUN “28-ANALI” 

Número 28, página 16. 



Bascomp 



La idea es la misma del 
programa anterior: editar una 


Rótulos Giratorios 

■■■■■■■■■■■■■ni 

Es un programita (35-Ideas) 
que permite visualizar mensajes 
que van moviéndose de 
izquierda a derecha como si se 
tratase de un rótulo giratorio. 

Podemos utilizarlo para crear 
títulos o bien para enviar 
cualquier mensaje dentro de un 
programa, produciendo un gran 
efecto visual. 

Número 35, página 33. 



Memoria de Pantalla 

Esta subrutina pretende 
ayudar a conocer de una 
manera rápida y sencilla el 
mapa de memoria de pantalla 
de un Lócate en modo cero. 
Ejecútelo con: 





RUN “38-IDEAS” 
Número 38, página 45. 


Reducción 

Tiene por objeto reducir el 
tamaño de una pantalla a su 





cuarta parte, pudiendo salvar el 
nuevo gráfico en cinta o en 
disco. 

Como está ubicada en la 
dirección &A000, la forma de 
relizar la llamada a la rutina es 
la siguiente: 

CALL &A000,N 

siendo N el modo de pantalla 

elegido. 

Podemos salvar el gráfico de 
dos maneras: 

- SAVE “nombre”,B.&C000,(16384/4) 
o bien: 

- SAVE “nombre”,B.&5000,(16384/4) 
¡Ah!, pero antes ejecute el 

programa cargador (40- Campa) 
y cargue la pantalla. 

Número 40, página 14. 

Dispant 


Se trata de un diseñador 
gráfico de pantallas, con un 
amplio número de posibilidades, 
gracias a las que haremos 
excelentes pantallas para utilizar 
en nuestros programas. 

El manejo del mismo está 
abundantemente explicado 
durante su ejecución (RUN 
“41-DISPA”), por lo que no 
incidimos en ello. 

Número 41, página 16. 




Upgrade 


¡Convierta su CPC 464 en 
un 6128 sin ningún problema! 
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Upgrade es un programa creador 
de una serie de comandos RSX 
que intentan anular las 
diferencias existentes entre los 
dos grandes y su hermano 
pequeño. 

Como en todos los de este 
tipo, primero se ejecuta el 
programa cargador (42-Upgra) y 
después se activa la utilidad 
mediante CALL 6A000. 

Los nuevos comandos gráficos 
son: 

IFRAME Sincroniza la 

escritura con el 
retorno del haz 
del monitor. 

IGRAPHICS. 

PAPER,tinta Asignamos una 
tinta específica al 
papel, utilizando 
el modo gráfico. 

IGRAPHICS. 

PEN,tinta Lo mismo para 

la pluma de 
gráficos. 

IMASK,ente¬ 
ro,primer 

punto Define una 

plantilla para 
trazar rectas. 

Suponemos que los siguientes 
comandos son lo suficientemente 
conocidos como para decir tan 
sólo que «x» e «y» son las 
coordenadas donde queremos 
colocar el cursor de gráficos, 
tinta selecciona la tinta para la 
pluma de gráficos y modo 
determina la manera lógica de 
relacionar la pluma con el 
fondo. 

lMOVE,x, y, tinta, modo 
lPLOT,x, y, tinta,modo 
lDRAW,x,y, tinta,modo 
I MOVER, x, y, tinta, modo 
lPLOTR,x,y,tinta,modo 
lDRAWR,x,y,tinta,modo 

Por último, IFILL, tinta nos 
rellena de color cualquier figura 
cerrada. 

Número 42, página 24. 


Impresión 

Pequeña rutina en Código 
Máquina para imprimir un 
mensaje en la pantalla con 
diferentes plumas. Para ello, 



ejecutar el programa cargador 
(45-Maq) y después: 

CALL &A000 

Número 45, página 12. 


Magnificador 

En esta ocasión presentamos 
una rutina muy útil para el 
tratamiento de gráficos, ya que 
permite obtener de una figura 
relativamente pequeña otra 
cuatro veces mayor. 

Para que funcione 
correctamente hemos de 
ejecutar el cargador (46-Magni) 
y después llamar a la rutina 
con: 

CALL &A000 

Las teclas empleadas serían: 
COPIA Producir la 

magnificación 




P Devolver la pantalla 

original. 

S Salvar la pantalla. 

ESC Volver al Basic. 

Con las teclas del cursor 
movemos el mismo, para 
decidir qué zona de la pantalla 
es la que queremos ampliar. 
Número 46, página 16. 


Impresiona 
con tu pantalla 

Con el programa 46-Maq se 
estudia la manera de realizar un 



marco o presentación de una 
pantalla. Como siempre, 
ejecutamos el programa 
cargador y después CALL 
&A000. Los efectos serán 
sorprendentes. 

Número 46, página 26. 


Ventanas 

En esta ocasión comprobaremos 
cómo se pueden definir 
ventanas desde Código 
Máquina y cómo se selecciona 
el color para cada una de ellas. 
El modo de poner en marcha 
esta rutina es semejante al 
programa anterior (47-Maq). 

Número 47, página 18. 

Gráficos definidos 
por el usuario 

Nuestra atención se centrará 
ahora en definir nuestros 
propios caracteres gráficos desde 
Código Máquina. La rutina 
48-Maq nos da una muestra 
viva de lo que queremos. ¿La 
forma de comprobarlo?, como 
en los dos programas anteriores. 

Número 48, página 24. 




Scroll pixel a pixel 

Hemos creado varios 
comandos RSX con el programa 
49-Scroll para acceder a cada 
uno de los posibles scrolles de 
donde suaves: 

lROLLD,X,Y, Scroll a la 
A,B derecha. 

lROLLI,X,Y, Scroll a la 
A,B izquierda. 

lROLLU,X,Y, Scroll hacia 
A,B arriba. 

lROLLA,X,Y, Scroll hacia 
A,B abajo. 

donde «X» e «Y» son las 
coordenadas de la esquina 
superior izquierda del bloque de 
pantalla a desplazar, y «A» y 
«B» la altura y anchura de 
dicho bloque. 

Además proporcionamos una 
pequeña Demo para aclarar 
conceptos (49-Sdemo). 

Número 49, página 16. 
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Inversión de 
Pantallas 

Le toca el turno ahora a la 
inversión de pantalla, tanto 
vertical como horizontalmente. 
Para utilizarla lo primero es 
ejecutar el programa cargador 
(51-Inver) y de ahí sacar la 
rutina ubicada en la dirección 
&A000. 

Después, se carga la pantalla 
que queremos invertir y a 
continuación se hace una 
llamada a la rutina. 

Con CALL &A000 se 
produce una inversión vertical 
de la pantalla mientras que con 




CALL &A000,1 la inversión es 
horizontal. ¿De acuerdo? 
Número 51, página 22. 


Alta Resolución 



Este programa se realiza en 
la pantalla con diferentes tintas 
proporcionando un marco 
adecuado al texto a imprimir. 

Como en casi todas las 
rutinas en Código Máquina que 
hemos visto, lo cargamos 
ejecutando el programa 
cargador (51-Maq) y la 
llamamos con CALL &A000. 
¿Verdad que se produce un 
resultado curioso? 

Número 51, página 18. 


A partir de ahora y con el 
programa que os presentamos, 
no será preciso efectuar la 
penosa tarea de ir componiendo 
de uno en uno todos los 
caracteres que nos interesen. 
Nuestra rutina es capaz de 
generar cientos y cientos de 
nuevos juegos de caracteres que 
podremos incluir en nuestros 
programas. 

Se basa en la creación de 
nuevos comandos RSX, por lo 
que ejecutaremos primero el 
programa cargador (52-Gench) y 
luego, salvamos la rutina: 

SAVE ”CHARS”,B,&9500,500 

Para cargar el Código 
Máquina confeccionaremos un 
programa Basic semejante a: 

10 MEMORY &94FF 
20 LOAD “CHARS”,&9500 
30 CALL &9500 

y ya se habrán inicializado los 
comandos RSX. Son los 
siguientes: 

ICARSO a 

ICARS9 Diferentes 

efectos sobre los 
caracteres. 

IGIRIO Rotación de 90 

grados. 

Número 52, página 10. 


Gráficos Relativos 

Este programa incluye los 
comandos gráficos que no se 
vieron en el 51-Maq efectuando, 
además, una pantalla de 
presentación con ellos. Se carga 
y ejecuta de la misma forma. 

Número 52, página 22. 



Diferentes tamaños 
de letras 

Nuevos comandos RSX. Nos 
permitirán imprimir cualquier 
serie de caracteres a tres 
tamaños diferentes. 

lTl,x,y,“CADENA” 
lT2,x,y,“CADENA” 




lT3,x,y,“CADENA” 

donde «x» e «y» son las 
coordenadas de impresión y 
«cadena» el texto a visualizar. 

Esta vez la rutina que activa 
la utilidad se encuentra en la 
dirección &9000 y ocupa 501 
bytes. Para que funcione 
primero se ejecuta el programa 
cardador y después, CALL 
&9000. 

Número 58, página 24. 


La Pantalla 


Este programa se encargará 
de imprimir 8 bytes con cada 
uno de los colores disponibles, 
en cada uno de los modos de 
pantalla en los que los bits 
llevan información de color, es 
decir, modos 1 y 0. 

Los valores para modo 1 los 
toma de la primera línea de 
data, mientras que para modo 
0, los valores se toman de la 
segunda. 

Ejecútelo con RUN 
“67-MAQ”. 

Número 67, página 40. 



Modificar Gráficos 



Esta rutina en Código 
Máquina se encargará de 
producir una rotación hacia la 
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derecha de todos los caracteres 
o gráficos que se encuentren en 
la pantalla en ese momento. Se 
puede modificar para que, en 
lugar de toda la pantalla, el 
scroll afecte sólo a una zona de 
la misma. 

Para verla funcionar 
ejecutamos el cargador, 
cargamos una pantalla y CALL 
&A000. ¿Vale? 

Número 68, página 11. 


CAD-3D 

Mediante este programa 
podremos realizar espectaculares 
gráficos en tres dimensiones de 
una forma sencilla. Partimos de 
la sección de la figura y 
terminamos generando un 
volumen de revolución. 

¿Las instrucciones? El 
proceso es totalmente 
autoexplicativo, así que: 

RUN “68-CADCA” 
y a correr. 

Número 68, página 14. 



Gran Carácter 

Será la herramienta que nos 
posibilite incluir caracteres 
gigantes en nuestros propios 
programas. Para utilizarla, 
ejecuta el programa 69-Granc 




que grabará en disco o en cinta 
el código binario (en esta 
ocasión comienza en la 
dirección 26000). 

Se nos activan dos nuevos 
comandos RSX: 

lTOP,@A$ Imprime la 

parte superior 
de los caracteres 
que forman la 
cadena A$. 
IBUT,@A$ Obtiene la 

parte inferior 


Ejecutando el programa 
cargador (70-Maq) tendrás en la 
memoria y a tu disposición el 
binario de la rutina que podrás 
desensamblar e introducir en 
tus propios programas. 

Número 70, página 8. 


Cambiar Tintas 

El siguiente programa revisa 
los valores de cada uno de los 




de los mismos 
caracteres. 

Incluimos un programa Demo 
que puede sernos de gran 
utilidad (69-Demo). 

Número 69, página 10. 


Rutina de Impresión 
de Gráficos 


■■■■■■■■■MI 



Esta rutina en Código 
Máquina imprimirá un gráfico, 
diseñado por nosotros mismos, 
en cualquier posición de la 
pantalla. 

Las condiciones de entrada 
serán: 

Definición Gráfico Registro IX 
Dimensiones Registro' BC 

Coordenadas Registro DE 

y, además, definiremos dos 
etiquetas utilizadas dentro de la 
rutina. Serán: 

Ancho Anchura del gráfico 

Alto Altura del gráfico 


bytes que componen la pantalla 
y, si dicho valor corresponde a 
una pluma determinada, lo 
cambia por el de la nueva 
pluma. 

Daremos a la rutina los 
siguientes parámetros iniciales: 

Coordenadas Registro HL 

Ancho Variable ancho 

Alto Variable Alto 

y actuaremos como en el 
programa anterior (el cargador 
es 72-Maq). 

Número 72, página 26. 


Generador 
de Sprites 

Presentamos en esta ocasión 
un programa generador de 
gráficos, capaz de crear figuras 
semejantes a las de los juegos 
comerciales. 

Consta de dos partes: una en 
Basic y otra, en Código 
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Máquina. Para ponerlos en 
marcha bastará con teclear: 
RUN “73-GRAF” 
y lo demás, corre a cuenta de 
nuestra inspiración. 

Número 73, página 6. 


Textos Giratorios 

Es uno de los trucos más 
impresionantes que hemos visto. 
Incluye una pequeña rutina en 
Código Máquina que es la que 
produce el movimiento. 

Cambiando oportunamente 
las datas podremos incluir 
nuestros propios textos. 

Y como ésta también en 
Basic, lo pondremos en 
funcionamiento mediante: 

RUN “73-BSCRO” 

Número 73, página 26. 



Papel Pintado 

Pequeño programa que 
genera un fondo con distintos 
colores mediante instrucciones 
poke. Sencillo pero efectivo. 

RUN “73-PAPEL” 

Número 73, página 27. 




Para la realización de este 

I0N,N,DIR,A,B 

Inicializa el sprite 

programa se ha recurrido a la 

N 

siendo: 

fórmula de la circunferencia en 

Número de sprite. 

coordenadas paramétricas. 

DIR 

Dirección del sprite 

Variando los distintos modos de 


en memoria. 

pantalla obtendremos muy 
diversas presentaciones, lo 

A 

Altura del mismo. 

mismo que variando el Step. En 

B 

Anchura. 

resumen, un truco vistoso. 

ISPRITE,N,Y,X 

Para el movimiento 

RUN “74-TRUC1” 


propiamente dicho, 

Número 74, página 32. 


donde: 

N 

Es el número de 
sprite. 

Á 

Xe Y 

Son las 

Movimiento Cmlj 


coordenadas. 


Movimiento carácter 
a carácter 



Hemos preparado una serie 
de comandos RSX para mover 


lOFF, N 


Desactiva el sprite 
N. 


Se trata de una rutina de 
desplazamiento de pantalla 
carácter a carácter. Los 
parámetros necesarios para que 
nuestra rutina funcione 
correctamente son: 

Ancho: DEFB 50 Número de bytes. 
Línea: DEFB 2 Número de bytes 
sobre los que se 
efectúa el scroll. 

Posic: DEFW#0505 Coordenadas de 
pantalla. 

¿Cómo utilizarla? Como las 
anteriores rutinas en Código 
Máquina. ¡Ah!, su cargador es 
el programa 73-Maq. 

Número 73, página 48. 



70 AMSTRAD ESPECIAL 

















Pasos a realizar: 

— Ejecutar el cargador: 

RUN “75-GRAF1”. 

— Salvar el código binario: 
SAVE ”SPRITE”,B,&9000,&245. 

— Cuando se desee activar 
los comandos: LOAD ”SPRITE’’ 
,&9000 y CALL &9000. 

Incluimos una Demo 
(75-Gra/2) para ver más 
claramente su funcionamiento. 
Número 75, página 10. 


biblioteca formada con las de 
los capítulos anteriores. 
Número 79, página 4. 


Conversor 

Nos resolverá el problema 
que se nos presenta cuando 
intentamos que un gráfico 
realizado en modo 2, se 
imprima en la pantalla en uno 
diferente al que ha sido 
realizado. Su misión es evitar 
que se desfigure. 



Las condiciones iniciales 
serán: 

HL 

Dirección gráfico en 
modo 1. 

DE 

Dirección gráfico en 
modo 2. 

BC 

Longitud inicial del 
gráfico. 


Cárgalo en memoria con 
RUN “80-GRAF”. 

Número 80, página 46. 

Y esto es todo lo más 
interesante. Esperamos haberos 
sido útiles, como siempre. 


Manejo y utilización 
de Gráficos 

Ésta es la rutina que nos 
faltaba para completar el 
movimiento en alta resolución: 
desplazamiento en sentido 
horizontal. 

Los programas cargadores 
79-Grafl a 79-Graf3 nos ofrecen 
esta rutina para cada uno de los 
tres modos de pantalla. 
Incluyelas dentro de la 
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Con el fin de acelerar lo más posible el correo, y poder resolver o contestar a 
todas las dudas y sugerencias que llegan a nuestra redacción, a partir de esta semana 
os rogamos, en beneficio de todos, consignar en el sobre, en lugar bien visible, una 
de las denominaciones siguientes: 

— Suscripciones AMSTRAD. Para todos aquelos casos relacionados con petición 
de cintas, números atrasados, formaüzación de suscripciones, devoluciones, etc... 

— Mercado Común AMSTRAD. Compras, ventas, intercambios, clubs... 

— Serie Oro AMSTRAD. Para los programas que nos enviéis para su 
publicación. 

— Sugerencias AMSTRAD. Para vuestras críticas, sugerencias o cualquier 
opinión que queráis vertir sobre la revista. 
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I ada vez con más frecuencia, nuestros 
lectores nos demandan discos conteniendo todos 
los programas y utilidades publicados a lo largo 
del mes por AMSTRAD Semanal. 

Nosotros, como de costumbre, intentamos 
hacernos eco rápidamente de las peticiones de 
nuestros lectores, tanto más cuanto todo aquel 
cpie no posee un CPC 464 tiene que recurrir a 
extrañas artimañas para poder cargar nuestras 
cintas, y es algo tedioso. Todo aquello de 
conectar el cassette a un 6128, cables por aquí 
por allá, etc. 

De este modo creemos hacer frente a la 
creciente demanda de nuestros programas, y 
estamos seguros de que la oferta de los discos 
complementará y potenciará la ya existente de 
las cintas, así como de que todos los lectores 
que posean una unidad de disco lo recibirán con 
los brazos abiertos. 

Porque lo más sorprendente de esta iniciativa 
de AMSTRAD Semanal es el precio: 999 pesetas 
por un disco nuevo repleto de programas, 
juegos y utilidades, listo para ser reutilizado 
cuando su propietario lo considere conveniente. 

Además, como oferta especial, nuestro primer 
disco incluye el diseñador de gráficos publicado 
en este número a partir de la página 74. 

Todos los lectores pueden solicitar en disco 
cualquiera de las cintas que ya han sido 
editadas. Por favor, para permitirnos la mayor 
rapidez de respuesta posible, indicar de forma 


clara y explícita a qué números de la revista 
(dentro del mismo mes) corresponden los 
programas que se desean recibir. 

Nuestra dirección es: 

Amstrad Semanal. 

Carretera de Irún, km 12,400. 

28049 Madrid. 

Departamento de SUSCRIPCIONES. 
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Graph es un programa gráfico multiusos pensado para todos 
aquéllos que posean un Amstrad 6128/664, con el que se pueden 
hacer composiciones geométricas, diseñar objetos, escribir carteles con letra 
gigante, duplicar el tamaño de las imágenes, sacar su simétrico en la pantalla, 

grabar dibujos, leerlos, borrarlos... 


Diseñador 
de 


gráficos 

para CPC 


Por: Marize Benayas 


F . . 

.I_il manejo de Graph es muy sencillo, sólo se 

emplean las teclas del cursor y la tecla de 
espacio. Consta de cuatro menús y en cada uno 
de ellos hay siete opciones de dibujo o comandos 
para las funciones del disco. 

Para poder seleccionar cualquier opción hay 
que desplazar, con las teclas del cursos 
(arriba/abajo), la flecha que aparece en la parte 
izquierda del menú en que nos encontremos y 
presionar Copy o Copia cuando nos hayamos 
decidido por una. 

Al final de todos los menús se presentan tres 
opciones: 

— Borra: borra la pantalla. 

— Anter: pasa al menú anterior. 

— Menú n: pasa al menú siguiente. 

Se seleccionan de la misma forma que 
cualquier opción del dibujo. 


Menú-1, las opciones son: 
Círculo. 

Óvalo horizontal. 
Óvalo vertical. 

Curva. 

Rombo. 

Cuadrado. 

Rectángulo horizontal. 


Después de haber elegido una de estas siete 
opciones (teclas del cursor y Copia) aparecerá en 
el centro de la pantalla un punto parpadeante. Se 
debe desplazar y poner en el lugar que más 
convenga con las teclas del cursor, y luego 


presionar (Espacio). El resto lo hace el programa. 


Menú-2: 

Rectángulo vertical. 
Línea fina. 

Línea gruesa. 

Línea a trazos. 
Línea a puntos. 
Doble línea. 

Línea a zig-zag. 


La primera opción (rectángulo vertical) se 
selecciona igual que las del menú anterior. Para 
dibujar líneas libremente, se siguen los mismos 
pasos, sólo que después de presionar (Espacio) hay 
que «dibujar» las líneas desplazándolas con las 
teclas del cursor y, una vez conseguido el dibujo 
deseado, volver a presionar (Espacio) para 
finalizar. 


Menú-3: 

Línea de ejes. 
Línea inclinada. 
Punto. 

Color 1. 

Color 2. 

Color 3. 

Varía colores. 


La primera opción funciona igual que en el 
menú anterior. Si queremos dibujar una línea 
inclinada, marcaremos el Origen de la misma en 
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la pantalla como antes (teclas del cursor y 
espacio). Después volverá a aparecer en la 
pantalla el punto parpadeante, entonces 
deberemos marcar el Final de la línea siguiendo 
los mismos pasos de antes (cursor y espacio) y la 
línea se dibujará. 

Para seleccionar cualquiera de los colores 
disponibles, se desplaza la flecha hasta el color 
elegido y presionar Copia, estos colores no afectan 
al borde de los dibujos, o sea, el contorno del 
dibujo siempre se dibujará en negro, pero sí 
afectan al relleno interior o exterior de las figuras 
(Fill). 

Si se elige la opción de Varía-Colores, hay que 
presionar cualquier tecla menos la de (Espacio) 
hasta que se encuentren los colores que se deseen 
y entonces presionar (Espacio) para finalizar. 
Menú-4, opciones especiales: 

— Fill: rellena áreas de la pantalla con un 
color. Los pasos a seguir son los mismo, situar 
con las teclas del cursor y presionar (Espacio). 

— Zoom +: con esta opción se puede aumentar 
de tamaño cualquier zona de la pantalla, 
haciendo que ocupe la totalidad de la misma. 
Después de haber situado el punto (cursor) en la 
posición a aumentar, se presiona (Espacio) (como 
siempre) y se espera un ratito sin tocar el teclado 
para nada hasta que el Zoom finalice. Esta opción 
del programa es un poco lenta, pero son cosas 
del lenguaje y seguro que cuando veas los 
resultados te darás cuenta de que ha valido la 
pena esperar. 

— Copia: sirve para duplicar una parte del 
dibujo. Hay que seguir los mismos pasos que 
para Zoom + , pero esta opción no es tan lenta 
como la otra. Se sitúa el punto con las teclas del 



Al final de cada menú aparecen tres opciones, como se ve en la 
foto, que se seleccionan con el cursor. 



cursor en el lugar que se quiera duplicar, y 
presionar (Espacio). 


Save. 

Load. 

Era. 


Antes de seleccionar cualquiera de estas tres 
opciones, hay que asegurarse de que el disco está 
metido en su unidad. No debes sacarlo para 
nada, también debes tener en cuenta que No esté 
protegido contra escritura y que tenga la 
suficiente capacidad como para guardar dos 
pantallas por cada una que salves. Cada pantalla 
ocupa 17 K del disco, pero el programa no sólo 
graba con la opción Save, así que es 
recomendable que utilices un disco virgen para 
este programa. 

Si se selecciona cualquiera de estas tres 
opciones, la pantalla se borrará y aparecerá un 
catálogo de los dibujos que existen en el disco, 
sólo hay que introducir el Número del dibujo y 
presionar Return o Enter, pero cuidando de no dar 
un número de dibujo que no existe al cargar o 
borrar una pantalla ya que habría que 
reinicializar el programa con RUN y se perdería 
toda la información de la última pantalla. 

— Mayor/menor: esta opción sirve para variar el 
radio o la longitud del lado de las figuras 
geométricas de los menús 1 y 2. Preguntará 
Mayor sí o no. Si contesta «N», la próxima figura 
será más pequeña que la anterior, y si se 
responde «S», será mayor. Pero los resultados no 
serán visibles hasta que se vuelva a dibujar 
alguna figura. 

Como se puede ver, este programa tiene 
muchas posibilidades y seguro que cualquiera es 
capaz de encontrarle alguna más, así que ahora 
sólo hay que echarle imaginación a la cosa y 
disfrutar. 
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! '*» Z - S R A P H tf 

2 'I* Per: MARIZE BENAYftS PAZOS U 

3 HODE 1:BORDER !6:PAPER l:CLS:men= 
í hy=380 

I soni=10C:inso=16:color=0:rho=100: 
rve=rho/2:res=SO:incr=hy+res:sw=0 

5 bo=16:pa=i:x=320:y=200:tiO=C:ti 1= 
26: ti2=0: ii3=l6: c0=0: d=l: c2=2: c3=3 
:IKK o,o:ink i,26:INK 2,0:INK 3,:6: 
BORDER bo:PAPER pa 

6 ' 

7 GOSUB 387:50508 244:G0$UB 275:GOS 
UB 282 

3 ON 8REAK SOSUB 284:0N ERROR SOTO 
285 

3 ' « I N I C I A L I Z A » 

SO GOSUB 387:ON ser SOSOS 115,117,1 
13,121 

II GOSUB 17 

12 UHILE -1:OLEAR INPUTlFOR p=! TO 
140:NEXT 

13 IF INKEYC23 0-1 THEN hy=hy-res:s 
oni=5oni+ir,so: incr=hy+res:GQSUB 17 
24 IF INKEY(O) 0-1 THEN hy=hy+res:s 
oni=soni-inso:incr=hy-res:GOSUB 17 
15 IF INKEYÍ9)<>-í THEN GOSUB 23:GC 
SUB 34 

18 WEND:ENO 

17 • « SITUA CURSOR ELECCIONES HEN 

U » 

18 IF soni>260 T HEN 5oni=260 ELSE I 
F soni<100 THEN soni=100 

13 IF hy>=400 THEN hy=380:res=50:s« 
=0 

20 IF hy<8 THEN hy=14:res=18 

21 IF sw=l THEN 23 

22 IF hy<75 THEN hy=50:res=18:sw=l: 
GOTO 24 

23 IF hy=50+res THEN hy=80:res=50:s 
w=0 

24 ORIGIN 0,0,0,633,333,0:PLOT 1,1, 
cOIDRAW 633,1 

25 PLOT -10,-10,el 

26 TAGIMQVE 560,incrlPRINT CHR$C254 
)j:SOUND 2,soni,4,7 

27 MOVE 560,hy:PRINT CHR$<255);:SOU 
NO 2,soni,4,7 


28 TAGOFF:PLOT l,l,c0:DRAW 633,l:RE 
TURN 

23 ' « ELECCIONES MENU 4 » 

30 IF hy=14 THEN hyl=ll:GOTO 33 

31 IF hy=32 THEN hy!=10:SOSUB SOS 

32 IF hy=SO THEN hyl=3:G0SUB 113:CL 
EAR INPUT:GOSUB 387 

33 RETURN 

34 ' « MENU 1 » 

35 IF »en=l THEN 36 ELSE 44 

36 IF hy=380 THEN c0=2:GOSUB 132: cO 
=0:INK 2,O,26¡GOSUB 288:GOSUB 82:IN 
K 2,ti2:GOSUB 132:RETURN 

37 IF hy=330 THEN 1 0=2¡GOSUB 135:cO 
=0:INK 2,O,26¡GOSUB 288:GOSUB 84:IN 
K 2, ti 2¡GOSUB 135:RETURN 

38 IF hy=280 THEN c0=2:G0SUB 138:cO 
=0*. INK 2, 0, 26:GOSUB 288:GOSUB 86: IN 
K 2 , ti2:GOSUB 138:RETURN 

33 IF hy=230 THEN c0=2:G0SUB 141:c0 
=0:INK 2, O, 26:GOSUB 288:GOSUB 88:IN 
K 2,ti2:GOSUB 14!¡RETURN 

40 IF hy=180 THEN cO=2:GOSUB 144:cO 
=0:INK 2, O, 26¡GOSUB 288:GOSUB 30:IN 
K 2,ti2:GOSUB 144:RETURN 

41 IF hy=130 THEN c0=2:G0SUB 147¡c0 
=0:INK 2, O, 26:GOSUB 288:G0SUB 32:IN 
K 2 , ti2:GOSUB 147:RETURN 

42 IF hy=80 THEN c0=2¡GOSUB !50¡c0= 
o: INK 2, 0 ,26: GOSUB 288:G0SUB 34:INK 

2 , ti2:GOSUB 150:RETURN 

43 GOTO 23 

44 ' « MENU 2 » 

45 IF ¡»en=2 THEN 46 ELSE 54 

46 IF hy=380 THEN c0=2¡GOSUB 161 ¡cO 
=0:INK 2, O, 26:GOSUB 238:GOSUB 37:IN 
K 2 , ti2:GOSUB 161¡RETURN 

47 IF hy=330 THEN c0=2:G0SU8 164:cO 
=0:INK 2,0,26:CLEAR INPUTlGOSUB 230 
:xl=x:yi=y:PLOT xl , yl , cO:CALL &B818 
¡CLEAR INPUT¡GOSUB 312:INK 2,ti2:G0 
SUB 164¡RETURN 

48 IF hy=280 THEN c0=2:GOSUB 167:c0 
=0:INK 2,0,26:CLEAR INPUTlGOSUB 290 
:xi=x:yl=y:PLOT xl,yl , cO:CALL 4BB13 
¡CLEAR INPUT:se=2:GOSUB 321:INK 2,t 
i2:GOSUB 167:RETURN 

49 IF hy=230 THEN c0=2:G0SUB 170:c0 
=0:INK 2,0,26:CLEAR INPUT:G0SUB 290 
:xl=x:yl=y:PLOT xl ,y I , cO:CALL 4BB18 
¡CLEAR INPUT:ic=12:GOSUB 332:INK 2, 
ti2:GOSUB 170:RETURN 

50 IF hy=130 THEN t0=2:G0SUB 173:cO 
=0:INK 2,0,26:CLEAR INPUT:GOSUB 290 
:xl=x:yl=y:PLOT xl,y 1 , cO:CALL &BB1S 
¡CLEAR INPUT:ic=5:GOSUB 344:INK 2,t 
i2:G0SUB 173:RETURN 

51 IF hy=130 THEN c0=2:G0SUB 176:c0 
=0:INK 2,0,26:CLEAR INPUTlGOSUB 290 
:xl=x:yl=y:PLOT xl,y 1,cO:CALL 4BB18 
¡CLEAR INPUT:se=6:GOSUB 321:INK 2,t 


• i2¡60SUB 176:RETURN 

52 IF hy=80 THEN cO=2:GOSUB 179:cO= 
OlINK 2,0,26:CLEAR INPUTlGOSUB 290: 
xl=x:yl=y:PLOT xl,yl,cO:CALL 4BB18: 
CLEAR INPUT:GOSUB 353:INK 2,ti2:60S 
UB 179:RETURN 

53 GOTO 29 

54 ' « MENU 3 » 

55 IF »en=3 THEN 56 ELSE 67 

56 IF hy=3S0 THEN c0=2:G0SUB ISSlcO 
=0:INK 2,O,26¡CLEAR INPUT:GOSUB 290 
:xl=x:yl=y:PL0T xl,y 1,cO:CALL 4BB18 
:CLEAR INPUT:GOSUB 365:INK 2,ti2:G0 
SUB 185:RETURN 

57 IF hy=330 THEN c0=2:G0SUB 183:c0 
=0:INK 2,O,26¡CLEAR INPUT:GOSUB 230 
:xí=x:yl=y:PLOT xl,y 1,cO:CALL 4BB18 
¡CLEAR INPUT:GOSUB 290:PL0T xl.yl.t 
0:DRAU X,y: INK 2,ti2:G0SUB 183:RETU 
RN 

58 IF hy=280 THEN c0=2¡GOSUB ¡91¡cO 
=0:INK 2,O,26:CLEAR INPUTlGOSUB 290 
¡PLOT x,y,cO:INK 2,ti2:G0SUB 191:RE 
TURN 

59 IF hy=230 THEN c0=2¡a=200:b=250: 
GOSUB 65:INK 2,O,26¡CLEAR INPUT:«HI 
LE INKEY$=":WEND:c0=1:GOSUB 6S:cO= 
tiO:color=TEST<590,a+10):INK 2,ti2: 
RETURN 

60 IF hy=180 THEN c0=2:a=150:b=200: 
GOSUB 65:INK 2,0,26:CLEAR INPUTlUHI 
LE INKEY$=”":UENO:cü=i:GOSUB 65:G0S 
UB 287:color=TEST(590,a+10):INK 2,t 
i 2:RETURN 

61 IF hy=!30 THEN c0=2:a=100:b=150: 
GOSUB 65:INK 2,0,26:CLEAR INPUTlWHI 
LE INKEY$=*”:WEND:c0=!:GOSUB 65:G0S 
UB 287:color=TEST(590,a+10):INK 2,1 
i2:RETURN 

62 IF hy=80 THEN e0=2:a=60:b=3!:GQS 
UB 64:INK 2,0,26:CLEAR INPUTlGOSUB 
330:a=60:b=91:GOSUB 64:INK 2,ti2:G0 
SUB 287¡RETURN 

63 GOTO 29 

64 LOCATE 1,ÜPRINT CHR$(23):F0R i= 
a TO b STEP 2:PLOT 530,i,cO:DRAW 63 
9,i:NEXT:LOCATE i,l:PR!NT CHRt(23)C 
HR$(0):RETURN 

65 ORIGIN 0,0!PL0T 580,a,cO:DRAW 63 
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9,a,cO:DRAW 639,b,cO:DRAW 580,b,c0: 
DRAU 530,aj cO:RETURN 

66 GOTO 29 

67 ' « MENU 4 » 

68 IF raen=4 THEN 69 ELSE 12 

69 IF hy=380 THEN 70 ELSE 74 

70 c0=2:L0CATE l,i:PRINT CHR$(23):F 
OR jas=366 TO 380 STEP 2:PL0T 580, j 
as,cO:DRAW 639,jas!NEXTíLOCATE 1,1: 
PRINT CHR$(23)CHR$(0) 

71 !NK 2,0,26:60SUB 288:c0=0:ORIQIN 
0,0,0,554,398 , O:GRAPHICS PEN cO:MO 

VE x,y:FILL color:QRISIN 0,0,0,639, 
399,0 

72 c0=2:LOCATE 1,1:PRINT CHR$(23):F 
OR »ur=366 TO 380 STEP 2:PL0T 530,» 
ur , cO:DRAW 639,iur¡NEXTíLOCATE 1,1: 
PRINT CHR$<23)CHR$( 05 

73 ORIGIN 0,0,0,639,399,0:c0=0:INK 
2,ti2!RETURN 

74 IF hy=330 THEN c0=2:a=318:b=330: 
GOSUB 64:INK 2,O,26:60SUB 390:c0=2: 
a=318:b=330:G0SUB 64:cO=tiO:RETURN 

75 IF hy=280 THEN cO=2:a=268:b=280: 
GOSUB 64:INK 2,0,26:GOSUB 420:c0=2: 
a=268:b=280:GOSUB 64:cO=t-iO:RETURN 

76 IF hy=230 THEN preg$="SALVAR':SO 
SUB 232: ! REN,a$ , 'pppppppp.bin*:GOSU 
B 241:GOSUB 287:GOSUB 25:RETURN 

77 IF hy=180 THEN pregt="LEER":GOSU 
B 235:GOSUB 241¡GOSUB 287:GOSUB 25: 
RETURN 

78 IF hy=130 THEN SAVE*PPPPPPPP”,b, 
iCOOO , S4000: preg$= J 'BORRAR”: GOSUB 23 
5:!ERA , a$:a$="pppppppp":GOSUB 241: ! 
ERA , 'pppppppp.bin”:RETURN 

79 IF hy=80 THEN GOSUB 280:a=68:b=6 
9:C=70:d=71:e=72:f=73:cl=3:GOSUB 20 
5:a=62:b=74:c0=2:GOSUB 64: INK 2,0,2 
6¡GOSUB 440:a=62:b=74:cO=2:GOSUB 64 
¡GOSUB 276¡a=68:b=69:c=70:d=71:e=72 
:f=73:c1=3:GOSUB 205¡GOSUB 287:RETU 
RN 

80 GOTO 12 

31 ' « DIBUJA PANTALLA ELECCIONES 
MENU 1 » 

32 ' « DIBUJA CIRCULO » 

83 ORIGIN 0,0,0,554,398 , 0:DEG:FOR v 
u=0 TO 360 STEP 6:PL0T rho*SIN(vu)+ 



x , rho*COS(vu) +y , cO:DRAV rhoíSIÍI(vu+ 
6)+x , rhotCOS ( vu+6)+y:NEXT:ORIGIN O, 
0,0,639,399 , 0:RETURN 

84 ' « DIBUJA OVALO VERTICAL » 

85 ORIGIN 0,0,0,554 , 398,0:DEG:FOR v 
u=0 TO 360 STEP 6:PL0T rvetSIN(vu)+ 
x, rhoíCOSIvu)+y,cOlORAW rveíSIN(vu+ 
6) +x,rhoíCOSCvu+6)+y:NEXT:ORIGIN O, 
0,0, 639 , 399 , 0:RETURN 

86 ' « DIBUJA OVALO HORIZONTAL » 

87 ORIGIN 0,0,0,554,398,O:DE6:F0R v 
u=0 TO 360 STEP 6:PL0T rho*SIN(vu)+ 
x,rve*COS(vu)+y,cO:ORA« rhoíSIN(vu+ 
6)+x,rveíCOSCvu+6)+y :NEXT:ORIGIN O, 
O,O, 639,399,0:RETURN 

83 ' « DIBUJA CURVA » 

89 ORIGIN O,O,0,554,398,0: DEG:FOR v 
u=270 TO 360 STEP 6:PL0T rhoíSINÍvu 
)+x,rhoíCOS( vu ) +y ,c O:DRAU r hoí SI NIv 
u+6)+x, rhoíCOSIvu+6)+y:NEXT:ORIGIN 
0,0,0, 639 , 399 , 0: RETURN 

90 ' « DIBUJA ROMBO » 

91 ORIGIN 0,0,0, 554 , 398 , 0:OEG:FOR v 
u=0 TO 360 STEP 90:PLOT rhoíSIN(vu) 
+x,rho*COS(vu)+y,cO:DRAW rhoíSINIvu 
+90)+x,rhoíCOSIvu+90)+y¡NEXT:ORIGIN 

0,0,0,639,399,O :RETURN 

92 ' « DIBUJA CUADRADO » 

93 ORIGIN 0,0,0, 554 , 393 ,0: DEG:FOR v 
u=4S TO 405 STEP 90:PL0T rhoíSINIvu 
) +x ,rhotCOSIvu)+y, cO:DRAU rhoíSINIv 
u+90)+x,rhoíCOSIvu+90)+y : NEXT: ORIGI 
N 0,0,0,633,399,0:RETURN 

94 ' « DIBUJA RECTANGULO HORIZONTA 
L » 

95 ORIGIN 0,0,0,554,398,0:DEG:FOR v 
u=45 TO 405 STEP 90:PL0T rhoíSINIvu 
)+x,rveíCOSIvu)+y,c 0: DRAU rhoíSINIv 
u+90)+x,rveíC0S(vu+90)+y: NEXT: ORIGI 
N 0,0,0,639,399,O :RETURN 

96 ' « DIBUJA ELECCIONES MENU 2 » 

97 ' « DIBUJA RECTANGULO VERTICAL 

>> 

93 ORIGIN 0,0,0,554,398,0: OEG:FOR v 
u=45 TO 405 STEP 90:PLOT rveíSINIvu 
) +x,rhoíCOSIvu)+y,cO¡DRAW rveíSINIv 
u+90) +x,rhoíCOSIvu+90) +y:NEXT¡ORIGI 
N 0,0,0, 639,399 , 0:RETURN 

99 ' « CAMBIO A MENU SIGUIENTE » 

100 IF hyl<8 THEN RETURN 

101 IF hy 1=11 AND ®en=l THEN teen=2: 
GOTO 10 

102 IF hyl=ll AND men=2 THEN »en=3: 
GOTO 10 

103 IF hyl=U AND men=3 THEN r«en=4: 
GOTO 10 

104 IF hy1=11 ANO men=4 THEN men=l: 
GOTO 10 

105 ' « CAMBIO A MENU ANTERIOR » 

106 IF hyl<8 THEN 111 


107 IF hyl=10 AND ien=l THEN i»en=4: 
GOTO 10 

103 IF hyl=10 AND men=2 THEN men=l: 
GOTO 10 

109 IF hyl=10 ANO aen=3 THEN raen=2: 
GOTO 10 

110 IF hyl=10 AND men=4 T HEN i«en=3: 
GOTO 10 

111 RETURN 

112 ' « BORRA PANTALLA » 

113 IF hy1=8 THEN CLS#2:GOSUB 130¡G 
OSUB 17: RETURN 

114 ' « DIBUJA MENU 1 » 

115 CLSfl: GOSUB 122:GOSUB 132¡GOSUB 
135:GOSUB 138: GOSUB 141¡GOSUB 144: 

GOSUB 147: GOSUB ISO¡GOSUB 153:RETUR 
N 

116 ' « DIBUJA MENU 2 » 

117 CLSfl: GOSUB 122: GOSUB 161¡GOSUB 
164¡GOSUB 167: GOSUB 170:GOSUB 173: 



118 ' « DIBUJA MENU 3 » 

119 CLSttl: GOSUB 122: GOSUB 185: GOSUB 
138:GOSUB 131¡GOSUB 194:GOSUB 136: 

GOSUB 138:GOSUB 201¡GOSUB 209:RETUR 


es construir 
pantallas de 
presentación 
o carteles 
gigantes. 


N 

120 ' « DIBUJA MENU 4 » 


12! CLSfl:GOSUB 122:GOSUB 213:GOSUB 
21s:GOSUB 217:GOSUB 219:GOSUB 221: 
GOSUB 223:GOSUB 225:GOSUB 228:RETUR 


122 ' « CUADRICULA » 

123 FOR d=530 TO 639:M0VE d,d:DRAU 
d , 399,c3:NEXT 

124 FOR a=0 TO 339 STEP SOlMOVE 580 
, a:DRAU 639, a,cO:NEXT 

125 MOVE 1,1:DRAU 639,cO:DRAU 639,3 
99:DRAU 1,399:DRAU 1,1 

126 MOVE 530,1:DRAU 580,399 

127 FOR x=S80 TO 639 STEP 2¡M0VE x, 
1:DRAW x, 50,cO:NEXT 

128 FOR v=576 TO S80:M0VE v,l:ORAU 
v, 399 , cO:NEXT 

129 RETURN 
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130 «OVE l,l:ORAU 57S,1,cO:DRAW 576 
,39S:DRAW 1,399:DRAU 1,I:RETÜRH 

131 ' « MENU 1 » 

132 ' « CIRCULO MUESTRA » 

133 ORIGIN 609.5,375:DES 

134 FOR x=0 TO 360 STEP 45:PL0T 20» 
SIN(x),20tC0S(x),cO:DRAU 20*SIN(x+4 
5),20»CQ$(x+45):NEXT:GOSUB 1595RETÜ 
RN 


153 ' « DECISIONES MENU 1 » 

154 60SUB 251 

155 PLOT -10,-10,cí:TA6:M0VE 586,48 
:PRINT CHR$C33)+CHRÍ(34)+CHR$C35); 

156 «OVE 586,32:PRINT CHR$C36)+CHR$ 
(37)+CHR$< 38)í 

157 «OVE 536,16:PRINT CHR$Í39)+CHR$ 
(40)+CHR$(41)j:TAGOFF 

158 RETURN 


135 ' « OVALO HORIZONTAL NUESTRA > 

\ 

136 ORIGIN 603.5,325:OES 

137 FOR x=0 TO 360 S T EP 20:PLOT 161 
SIN(x),22ÍC0S(x),cO:ORAW 16tSIN(x+2 
0),22*CQS(x+20)!NEXT:GOSUB 15S:RETU 
RN 

138 ' « OVALO VERTICAL NUESTRA » 
133 ORIGIN 609.5,275:OES 

140 FOR x=0 TO 360 STEP 20:PLOT 254 
SIN(x) , 16íC0S(x),cO:ORAU 25*SIN(x+2 
0) , 16*CQS(x+20):NEXT:GOSUB 159:RETU 
RN 

141 ' « CURVA NUESTRA » 

142 ORIGIN 639,198:DES 

143 FOR x=280 ?0 350 STEP 8:PLOT 50 
íSIN(x),50*COS(x),cO:DRAü 50 *SIN(x+ 


153 NOVE 1,1:FILL el¡RETURN 

160 ' « «ENU 2 » 

161 ' « RECTANGULO VERTICAL NUESTR 
A » 

162 ORIGIN 0,0 

163 PLOT 594,354,cO:DRAU 624,354:DR 
AU 624,334¡DRAU 534,334¡DRAU 534,35 
4:ORIGIN 609.5,375:GOSUB 153:GRIGIN 

O,O¡GOSUB 253:RETURN 

164 ' « LINEA FINA NUESTRA » 

165 ORIGIN 0,0 

166 PLOT 590,325,cO:DRAU 629,325:RE 
TURN 

167 ' « LINEA GRUESA NUESTRA » 

163 ORIGIN 0,0 

169 FOR 1=274 TO 276 STEP 2:PLOT 59 
0,1,c0:DRAW 629,1:NEXT¡RETURN 


Con el cuarto 
menú se 
pueden 
realizar 
copias, zoom, 
colorear 


3),S0»C0S(x+8):NEXT:RETURN 

144 ' « RONSO NUESTRA » 

145 ORIGIN 0,0 

146 PLOT 609.5,152:DRAU 636,175,cO: 
DRAU 603.5,136:DRAU 584,175:DRAU 60 
9.5,152:ORIGIN 609.5,175:GOSUB 153: 
RE’URN 

147 ' « CUADRADO NUESTRA )> 

143 ORIGIN 0,0 

149 PIO’ 594,110,cO:DRAU 625,110:DR 
AV 525,140:DRAU 554,140:DRAW 534,11 
0:ORIGIN 609.5,125:GOSUB 159:RETURN 

150 ' « RECTANGULO HORIZONTAL NUES 
TRA » 


170 ' « LINEA TRAZOS NUESTRA » 

171 ORIGIN 0,0 

172 FOR 1=588 TO 632 STEP !0:PL0T 1 
,225!DRAU 1+6,225,cO:NEXT:RETURN 

173 ' « LINEA PUNTOS NUESTRA » 

174 ORIGIN 0,0 

175 "OR 1=538 T 0 632 STEP 4:PLQT 1, 
175,cO:NEXT:RETURN 

176 ' « LINEA DOBLE NUESTRA » 

177 ORIGIN 0,0 

173 PLOT 530,123,cOlDRAU 629,123:PL 
OT 590,122:DRAU 629,122¡RETURN 

179 ' « LINEA ZIG-ZAG NUESTRA » 

180 ORIGIN 0,0 


zonas del 151 ORIGIN 0,0 18! FOR 1=538 TO 624 STEP SlPLOT I, 

dibujo y 152 PLG T 534,60,cO:DRAW 635,60:DRAW 72,cO:DRAW 1+4,76:DRAU 1+8,72:NEXT: 


aumentar o 
disminuir el 
tamaño. 


635,30:DRAW 584.30:DRAW 584,60:08! 
GIN 609.5,75:GOSUB 159:0RIGIN 0,0:R 
ETURN 



RETURN 

132 ' « DECISIONES «ENU 2 » 

183 GOSUB 253:GOSUB 155:RETURN 

184 ' « NENU 3 » 

185 ' « LINEA EJES NUESTRA » 

186 ORIGIN 0,0 

137 FOR 1=588 TO 618 STEP !4:PL0T I 
,375,cO:PLOT 1+4,375:DRAU 1+10,375: 
NEXT:PLOT 630,375:RETURN 
188 ' « LINEA INCLINADA NUESTRA » 

133 ORIGIN 0,0 

190 PLOT 530,310,cO:DRAU 623,340:RE 
TURN 

191 ' « PUNTO NUESTRA » 

132 ORIGIN 0,0 

193 PLOT 609.5,275,cO:RETURN 

134 ' « COLOR 1 NUESTRA » 

135 ORIGIN 609.5,225:c1=1:GOSUB 159 
¡GOSUB 200:RETURN 



136 ' « COLOR 2 NUESTRA » 

137 ORIGIN 509.5,175:c1=3:GOSUB 159 
¡GOSUB 200:RETURN 

198 ' « COLOR 3 NUESTRA » 

199 ORIGIN 609.5,125:c1=0:GOSUB 159 
:GOSUB 200:RETURN 

200 c 1=1:C3=3:C0=0:RETURN 

201 ' «VARIA COLOR NUESTRA » 

202 GOSUB 258 

203 ORIGIN 0,0 

204 FOR t=580 TO 633:NOVE t,50:DRAU 
t,100,cO:NEXT:NOVE 580,52:DRAW 639 
, 52,el:DRAU 639,250:DRAU 580,250:DR 
AW 580,52:PLOT 580,150:DRAW 639,150 



¡PLOT 580,200:DRAU 633,200:PLOT 580 
,100:DRAU 639,100:PLOT 580,252:DRAW 
639,252,cO:a=42:b=43:c=44:d=45:e=4 
6¡í=47 

205 TAG:PLOT -10,-10,el 

206 NOVE 588,31¡PRINT CFR$ía)+CHR$( 
b)+CHR$(c)¡ 

207 NOVE 586,75:PRINT CHR$!d)+CHR$( 
e)+CHR$(f)j 

203 TAGOFF:RETURN 

203 ' « DECISIONES NENU 3 » 

210 ORIGIN 0,0 

211 GOSUB 254:GOSUB 1S5:RETURN 

212 ' « NENU 4 » 

213 ' « FILL NUESTRA » 

214 ORIGIN 0,0:GOSUB 260:Io=590:ha= 
380:si=48:s2=49:s3=50:6QSUB 229:RET 
URN 

215 ' « ZOOH+ MUESTRA » 

216 ORIGIN 0,0:GOSUB 262:lo=586:ha= 
330¡s1=51:s2=52:s3=53:GOSUB 229:RET 
URN 

217 ' « COPIA NUESTRA » 
































































































































































































213 0R1GIN O.OlGOSUB 264:lo=586:ha= 
280:s1=65:s2=66:s3=67:GOSUB 229:REI 
URN 

213 ' « SftVE MUESTRA » 

220 ORIGIN O.OlGOSUB 268:Io=58S:ha= 
230:s1=54:s2=55:s3=56:GOSUB 229:REI 
URN 

221 ' « LOAD MUESTRA » 

222 ORIGIN 0,0¡G0SUS 272:Io=588:ha= 
180: sl=57:s2=58:s3=S9:GQSUB 223:RET 
URN 

223 ' « ERA MUESTRA » 

224 ORIGIN O.OlGOSUB 274:lo=530:ha= 
132:Sl=60:32=61:s3=S2:GOSUB 229:RE T 
URN 

225 ' « MAYOR / MENOR MUESTRA » 

226 ORIGIN 0,0:GOSUB 276:a=68:b=69: 
c=70:d=7!:e=72:f=73:cl=3:GOSUB 20S: 
c1=1:RETURN 

227 ' « DECISIONES MENU 4 » 

228 GOSUB 257:GQSUB 155:RETURN 

229 ' 

230 TAG:PLOT -10.-10.c3 

231 «OVE lo,ha:PRINT CHRÍCsl5+CHR$( 



52!+CHR$(s3)¡:TAG0FF:RETURN 

232 ' « EJECUTA SAVE » 

233 PLOT -10,-10,c 1:TAG:MOVE 560,hy 
¡PRINT CHRt(SFE); 

234 GOSUB 287!SAVE”PPPPPPPP 5 .B,SCÜO 

0,44000 

235 «ODE 2:PAPER 0:PEN l.'BORDER 0:C 
LEAR INPUT 

236 SYMBOL AFTER 32:!3IR, 'DIBt.bin 

237 LOCATE 60,24:PRINT FREÍ”");" By 
tes libres.‘¡LOCATE 1,24:PRINT CHR» 

(2);:print»-numero del dibujo a ■;? 

reg$|" ???";:INPUT nua 

238 b$=MID$(STR$(nuro),2,LEN(STR$(nu 

a») 

239 a$=*dib'+b$+”.BIN’ 

240 RETURN 

241 ' « EJECUTA LOAD » 

242 MODE l:INK 0,0:INK 1,0:INK 2,0: 
INK 3,0:L0AD a$ 

243 GOSUB 237:GOSUB 244:G0SUB 282:3 
QSUB 387:RETURN 

244 ' « DECISIONES SIMBOLOS » 


245 SYMBOL AFTER 32 

246 SYMBOL 33.&X0,&X11100!11,&X1001 
0101.SX111Í0101.iXIOOlOlOl.iXIÍlOOl 
11,4X0,&X0:SYMBOL 34,iXO,&X1111011, 
&X1001010,4X1ÍÍ1011,4X1010010,&X100 
1010,&X0,&X0:SYMBOL 35,&X0,2.XÍ 10011 
00,&X1010010,&X11010010,&X100!1110, 
4X1010010,5X0,5X0 

247 SYMBOL 36,1X0,4X1100100,5X10010 
110,4X10010101,5X11110100,4X1001010 
O,4X0,5X0:SYMBOL 37,5X0,5X1011101,4 
X1001001,4X1001001,5X11001001,5X100 
1001,4X0,4X0:SYMBQL 38,4X0,4X110111 
10,5X10010,4X10011110,4X10100,5X110 
10010,5X0,4X0 

248 SYMBOL 39,5X0,5X0,5X10001011,5X 
11011010,5X10101011,4X10001010,5X10 
001011:SYMBOL 40,5X0,5X0,5X10100010 
,5X110010,5X101010,5X100110,5X10100 
010¡RETURN 

249 PEN O 

250 ' 

251 SYMBOL 41,5X0,5X0,5X10100110,5X 
10101001,5X10100010,5X10100100,5X11 
101111¡RETURN 

252 ' 

253 SYMBOL 41,5X0,5X0,5X10101111,4X 
10100001,5X1O100110,5X10100001,5X11 
10111!,5X0:RETURN 

254 ' 

255 SYMBOL 4!,5X0,4X0,5X10100001,4X 
10100011,5X10100101,5X10101111,5X11 
10000!,5X0:RETURN 

256 ' 

257 SYMBOL 529,S0,SC,5A6,4A2,5A2,4A 
2,5E7:RETURN 

258 ' « VARIA COLOR SIMBOLOS » 

259 SYMBOL 52A,SO,589,48A.S8A,553,5 
52,522:SYMBOL 428,40,590,552,552,50 
C,552,452:SYMBOL 42C,40,598,4A4,SA4 
,SBC,4A4,4A4!SYMBOL 520,50,571,582, 
48A,582,58A,571:SYMBOL 52E,40,490,5 
51,55!,451,451,590:SYMBOL S2F,S0,SC 
E, 529,523,52E,52A,5C9: RETURN 

260 ' « FILL SIMBOLOS » 

261 SYMBOL 530,4FF,S6,57E,57E,5E,57 

E, 57E,4FF:SYMBOL 531,5FF,SDF,4DF,4D 

F, SDF,4DF,4C3,4FF:SYMBOL 532,5FF,47 
F,57F,57F,57F,57F,5F,5FF:RETURN 

262 ' « ZCOMt SIMBOLOS » 

263 SYMBOL S33,SFF,SC,SEB,4DB,4EB,5 
C,5FF,5FF:SYMBOL 534,5FF,5E6,45A,55 
A,55A,5E6,5FF,4FF:SYMBOL 535,4FF,5E 
F,540,4A8,SED,4EF,5FF,4FF:RETURN 

264 ' « COPIA SIMBOLOS » 

265 SYMBOL 65,4X11111111,4X10001100 
,5X1111011,5X1111011,5X1111011,5X10 
001100,4X11111111,5X11111111 

266 SYMBOL 66,5X11111111,5X21000010 
,4X1011010,4X1000010,4X1011110,5X11 
011110,5X11111111,4X11111111 


267 SYMBOL 67,5X11111111,4X11001111 
,5X10110111,4X10110111,5X1000011!,5 
X10110101,5X11111111,SXlllllllllRET 
URN 

268 ' « SAVE SIMBOLOS » 


Con este 
programa se 
pueden 
mezclar 
curvas y 
rectas para 


263 SYMBOL 54,5X11111111,4X1110,4X1 
111101,5X1101,5X11101100,4X1101,5X1 
lililí!,SXllIllllllSYMBOL 55,4X1111 
1111,5X1110111,5X10110111,5X101110! 
O,5X111010,4X10111101,5X1111111!,4X 
11111111 

270 SYMBOL 56,5X11111111,5X1100001, 
5X1101111,5X11100011,5X11101111,5X1 
1100001,5X11111111,SXlllllllllRETUR 
N 

27! RETURN 


conseguir 
todos los 
dibujos que 
imaginemos. 


272 ' « LOAD SIMBOLOS » 


273 SYMBOL 433,SFF,57E,570,570,570, 
SE,SFF,SFF:SYMBOL S3A,5^,473,586,5 
B6,5B0,576,5FF,5FF:SYMBOL 53B , 5FF,5 
C7,5DB , 5DB,SDB,SC7,SFF,4FF:RETURN 

274 ' « ERA SIMBOLOS » 


275 SYMBOL 53C,5FF,56,47E,57E,5E,57 
E, 56,SFF:SYMBOL 53D,SFF,41E,SED, SED 
,41C,SEO,SED,SFF:SYMBOL 53E,SFF,S3F 
,SDF,SDF,41F,SDF,SOF,SFF:RETURN 

276 ' « MAYOR/MENOR SIMBOLOS » 

277 SYMBOL 68,5X11111112,5X1110100, 
4X100101,5X1010100,5X1110101,5X1110 
101,4X11111111,SXllMlllÜSYMBCL 63 
,4X11111111,5X1010110,5X101010!,5X1 
101101,5X1101101,4X1101110,5X111111 
11,4X11111111 

278 SYMBOL 70,5X1112111!,5X110000!, 
5X10101101,5X10100001,5X10101011,4X 
1101101,4X11111112, SXillllllÜSYMBB 
L 71,5X11111111,5X1110100,4X10010!, 
5X1010100,5X1110101,5X1110100,5X111 
11111,4X11111111 

273 SYMBOL 72,4X11111111,4X1011011, 
4X11001010,5X11010010,4X11011010,SX 
1011011,4X11111111,SXUlllllllSYMBO 
L 73,5X11111111,5X110000,4X11010110 
,4X11010000,5X1101010!,4X110110,5X1 
1111111,4X11111111:RETURN 
280 SYMBOL 71,4X11111111,5X1011,4X1 
111111,4X1011,4X11101011,5X1011,5X1 
1111121,4X!1111I11:SYMB0L 72,5X1110 
lili,4X11011110,4X11111110,4X100011 
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lO.&XlOlOlllO.&XlOOOlllO.&Xllllllll 

,4X11111111 

231 SYMBOL 73,4X11111111,4X11011111 
,4X1011111,4X10010001,4X11010101,4X 
11010001,4X11111111,4X1111111 l'.RETU 
RN 

282 ' « CURSOR ELECCIONES SIMBOLOS 

» 

283 SYMBOL 255,4X1111!,4X1100111,4X 
1111001,4X1111110,4X1111001,4X1100! 
11,4X11111, 4Xllllllíl:SYMBQL &FE.4F 
F , 4FF,4FF,4FF , 4FF , 4FF , 4FF , 4FF: RETUR 
N 

284 SYMBOL AFTER 32:PAPER O'.PEN !¡E 
ND 

285 IF ERR=7 OR ERR=6 T HEN SOTO 428 
ELSE SYMBOL AFTER 32: INK 0,0:INK 1 
,26:PAPER OlPEN l:PRINT*ERROR "¡ERR 
;”EL LA LINEA ";ERL:STQP 

286 ' « SITUA LAPIZ » 

237 c0=0: c 1=1 : c2=2: c3=3:INK cO.tiO: 
INK el,ti1:INK c2,ti2¡INK c3,ti3:B0 
ROER ti3:RETURN 

238 ' 

289 ' 

230 CLEAR INPUT:ORIGIN G,0¡x=320:y= 
200:c0=2: INK c2,O,26:FOR 1=1 TO 100 
¡CLEAR INPUT:NEXT 

231 «HILE NOT INKEYC47) 0-1 

292 IF INKEY(O)0-1 THEN yp=y:y=y+6 
: GOSUS 305:60SUB 299:GOTO 237 

233 IF INKEY(2)<>-1 THEN yp=y:y=y-6 
; SOSUB 305:GOSUB 239:GOTO 237 

234 IF INKEYC 1)0-1 THEN xp=x:x=x+6 
¡GOSUB 305:GOSUB 239: GOTO 297 

235 IF INKEY(8)0-1 THEN xp=x:x=x-6 
: GOSUB 305:GOSUB 293 ¡GOTO 237 

236 a=TEST(x,y):WHILE INKEY$=” S :PLQ 
T x,y,cO:UENO: PLOT x,y,a 

297 UENO 

298 c0=0: GOSUB 287: INK c2,0,26:RETU 
RN 

293 ' « DIBUJA LAPIZ » 

300 byte=TEST < x, y 5:bytes=TEST(xp,yp 
) 

301 PLOT xp,yp, bytes 

302 PLOT x,y, cO 

303 FOR p=l TO 40: NEXT¡PLOT x,y,byt 

6 

304 RETURN 

305 ' « TOPES » 

306 IF y>=398 OR y<=0 OR x>=554 OR 
x<=0 THEN LOCATE !,1:PRINT CHRÍÍ7) 

307 IF y >=338 THEN y=396 

308 IF y<=0 THEN y=2 

309 IF x>=554 THEN x=552 

310 IF x<=0 THEN x=2 

311 RETURN 

312 ' « EJECUTA LINEAS » 

313 0RI6IN 0,0:x=xl:y=yl:PL0T x,y,c 
0:CLEAR INPUT 


314 WHILE NOT INKEYC47)0-1 

315 IF INKEY(O)0-1 THEN y=y+32:G0S 
UB 305:GOSUB 320¡SOTO 313 

316 IF INKEYC2)0-1 THEN y=y-32:GCS 
UB 305:GOSUB 320¡GOTO 319 

317 IF INKEYC 1) 0-1 THEN x=x+32:S0S 
UB 305: GOSUB 320:GOTO 319 

318 IF INKEYC8)0-1 THEN x=x-32:G0S 
UE 305:GOSUB 320 

319 FOR t=l TO 100:NEXT:UEND:RETURN 

320 ORAU x,y,cO:RETURN 

321 ' « EJECUTA LINEAS DOBLES » 

322 ORIGIN 0,0:x=xl:y=y1:PLOT x,y,c 
o: PLOT x+se,y,cO:CLEAR INPUT 

323 WHILE NOT INKEY(47)<>-1 

324 a=x¡b=y 

325 IF ¡NKEYCOXM THEN y=y+16:G0S 
UE 305!GOSUB 330:GOTO 323 

326 IF INKEYC2)O-1 THEN y=y-16:GGS 
UB 305:GOSUB 330:GOTO 329 

327 IF INKEYC 1)0-1 THEN x=x+16:G0S 
UB 305: GOSUB 33!:S0T0 323 

328 IF INKEYC8)0-1 THEN x=x-16:S0S 
UB 305:GOSUB 33!¡SOTO 329 

329 FOR i=l TO 100:NEXT:VENO:RETURN 

330 PLOT a,b,c0:DRAU x,y,cO:PLOT a+ 
se , b , cO:DRAU x+se,y,cO:RETURN 

33! PLOT a , b , cO:ORAU x,y,eO:PLOT a, 
b-se ,cO’.ORAW x,y -se, cO:RETURN 

332 ' « EJECUTA LINEAS A TRAZOS » 

333 ORIGIN 0,0:x=xl : y=y1 : PLOT x,y,c 
0:CLEAR INPUT 

334 WHILE NOT INKEY(47)0-1 

335 IF INKEY(O) 0-1 THEN y=y+ic:GOS 
UB 305:GOSUB 340¡GOTO 339 

336 IF INKEY (2)0-1 THEN y=y-ic:SQS 
UB 305:GOSUB 341¡GOTO 333 

337 IF INKEYC 1)0-1 THEN x=x+it:GOS 
UB 305:GOSUB 342¡GOTO 333 

338 IF INKEYC8)0-1 THEN x=x-ú:GOS 


UB 305:GOSUB 343 

339 FOR t=l TO 100:NEXT:UEND:RETURN 

340 PLOT x,y-(ic/2) , cO:DRAW x,y¡RET 
URN 

341 PLOT x,y+íic/2) ,cO:ORAU x.ylRET 
URN 

342 PLOT x-Cic/2) , y, cO:DRAW x,y:RET 
URN 

343 PLOT x+C ic/2),y , cO:DRAW x, y :RET 
URN 

344 ' « EJECUTA LINEAS A PUNTOS » 

345 ORIGIN 0,0:x=xl: y=y1 : PLOT x, y, c 
0:CLEAR INPUT 

346 WHILE NOT INKEY(47)C-! 

347 IF INKEY(O)0-1 THEN y=y+6:S0$U 
B 305:GOSUB 352:GOTO 351 

348 IF INKEYC2)0-1 THEN y=y-S:SOSU 
B 305:GOSUB 352¡GOTO 351 

349 IF INKEYC 1)0-1 THEN x=x+6:S0SU 
B 305:GOSUB 352:GOTO 351 

350 IF INKEYCS)0—1 THEN x=x-6:G0SU 
B 305:GOSUB 352 

351 PQR t=l TO 75:NEXT:UENO:RETURN 

352 PLOT x,y, cO:RETURN 

353 ' « EJECUTA LINEAS A ZIG-ZAG > 

354 ORIGIN 0,0:x=xl:y=yl:PL0T x,y, c 
0:CLEAR INPUT 

355 WHILE NOT INKEY(47)0-1 

356 IF INKEY (0)0-1 THEN y=y+12:G0S 
UB 305:GOSUB 361¡GOTO 360 

357 !F INKEY(2)0-1 THEN y=y-12:GQS 

UB 305:GOSUB 362:GOTO 360 

358 IF INKEYC 1)0-1 THEN x=x+12:G0S 
UB 305:GOSUB 363:GOTO 360 

359 IF INKEY(8)0-1 THEN x=x-12:G0S 
UB 305:GOSUB 364 

360 FOR t=l TO 7S:NEXT:WEND:RETURN 

361 PLOT x,y-12,cO:DRAW x-6,y-S:QRA 
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U x,y¡RETURN 

362 PLOT x,y+12,cO:DRAW x-6,y+6:0RA 
y x,y:RETURN 

363 PLOT x-12,y,cO:DRAW x-6,y-6:DRA 
« x,y:RETURN 

364 PLOT x+12,y,cO:DRAW x+6,y-6:0RA 
y x,y¡RETURN 

365 ' « EJECUTA LINEAS A EJES » 

366 ORIGIN 0,0:x=xl:y=y1:PLOT x,y,c 
0:CLEAR INPUT 

367 «HILE NOT INKEYU7KM 

368 !F INKEY(O)<>-í THEN v=y+I6:G0S 
UB 305:G0SUB 373:GOTO 372 

369 IF INKEY(2)0-1 THEN y=y-!6:G0S 
UB 305CG0SUB 374¡GOTO 372 

370 IF INKEYdXM THEN x=x+!6:GQS 
UB 305:GOSUB 375:GOTO 372 

371 IF INKEYC3)0-1 THEN x=x-16:G0S 
UB 305:G0SUB 376 

372 FOR t=l TO 75:NEXTlWEND:RETURN 

373 PLOT x,y-16,c0:PL0T x,y-12:0RAy 
x,y-4:PLOT x,y:RETURN 

374 PLOT x,y+16,cO:PLOT x,y+12:DRAW 
x,y+4:PLOT x,y¡RETURN 

375 PLOT x-16,y,cO:PLOT x-12,y:0RAU 
x-4,y:PLOT x,y¡RETURN 

376 PLOT x+16,y,cO:PLOT x+i2,y:DRAW 
x+4,y:PL0T x,y:RETURN 

377 ' « EJECUTA LINEAS INCLINADAS 

» 

378 ORIGIN O,0:x=320:y=200:PLOT x,y 
,cO:CLEAR INPUT 

373 WHILE NOT INKEYC47)0-1 

380 ' « EJECUTA VARIACION DE COLOR 

» 

38! CALL 5BB18:CLEAR INPUT 

382 WHILE NOT INKEY(47)<>-1 

383 tl=!NT(RND*26):INK cl,ti:tii=t! 

384 t2 s INT(RNDÍ26):INK c0,t2¡U0=t2 

385 t3=INT(RNDt26):INK c3,t3:ti3=t3 
¡BORDER ti3:bo=ti3 

386 CALL 4BB18:VENO:RETURN 

387 UINDOWtl,37,40,1,25:PAPERI1,c3: 
PEN#1,cO:UINDQW#2,1,36,1,25:PAPERI2 
,c1:PEN#2,cO:RETURN 

388 IF rho>=200 THEN rho=200 ELSE I 
F rho<=10 THEN rho=10 


389 rve=rho/2:RETURN 

390 ' « EJECUTA ZOOM+ » 

391 ORIGIN O,0:x=320:y=200:CLEAR IN 
PUT:GQSUB 393:G0SUB 400:G0SUE 402: G 
OSUB 403 

392 RETURN 

393 WHILE NOT INKEY(47K>-1 

394 IF INKEY(O)0-1 THEN yp=y¡y=y+6 
:GOSUB 413:GOSUB 299:G0TG 399 

395 IF INKEY(2)0-1 THEN yp=y:y=y-6 
¡GOSUB 413:G0SUB 293:GGT0 399 

396 IF INKEYdXM THEN xp=y¡x=x+6 
¡GOSUB 413:GOSUB 299:GOTO 399 

397 IF INKEY(8)0-1 THEN xp=y:x=x-S 
¡GOSUB 413:GOSUB 299:GOTO 399 

398 a=TEST(x,y):WHILE INKEY$=*':PLO 
T x, y , cO:WEND:PLOT x,y,a 

399 VENO:RETURN 

400 ' <( VENTANA » 

401 PLOT x-68,y-49,cO:DRAW x+72,y-4 
9:DRAW x+72,y+54:ORAW x-68.y+54:ORA 
y x-68,y-43:RETURN 

402 ch=0:DIN pis$(70):0RIGIN x-66,y 
-46:F0R h=0 TO 137 STEP 2:ch=ch+l:F 
OR v=C TO 10! :pis$(ch)=pis*(ch)+ST 
Ri<TEST(h,v)):NEX T v , h:RETURN 

403 ' 

404 ORIGIN 0,0:h=0 

405 FOR ch=! TO 69 

406 FOR g»=l TO 8 STEP 2::h=h+2 

407 v=2 

408 FOR 1=2 TO LENCpi5$<ch)) STEP 2 

409 FOR cad=l TO 4 STEP 2 

410 P LOT h,v,VAL(NID$(pi5$(ch),l,l) 

) 

41! v=v+2 

412 NEXT cad,1 , gm,ch:ERASE pis$:GOS 
UB 287:PLOT 2,398:DRAW S39,338,cO:R 
ETURN 

413 ' 

414 IF y>=344 OR y<=43 OR x>=482 OR 
x<=68 THEN LOCATE i.ÜPRINT CHR$(7 

1 

415 IF y>=344 THEN y=342 

416 IF y<=49 THEN y=51 

417 IF x>=482 THEN x=480 

418 IF x<=68 THEN x=70 



riRYOP 

HEMOS 


OQD 


419 RETURN 

420 ' « DUPLICA DIBUJO » 

421 ORIGIN O,0¡x=320:y=200:CLEAR IN 
PUT:GOSUB 393 

422 ORIGIN x-68,y-49:F0R h=0 TO 134 
STEP 2 

423 FOR v=0 TO 103 

424 IF h+140>=552-(x-68> THEN 426 

425 PLOT h+140,v,TEST(h,v) 

426 PLOT h,v+102,TEST(h,v):PLOT h,v 
-103,TEST(h,v)¡PLOT h-140 , v,TEST(h, 
v):NEXT v,h:ORIGIN 0,0:RETURN 

427 ' « TRATAMIENTO DE ERRORES » 
423 POKE 124,lien:POKE 125,bo:P0KE 1 
26,pa:POKE !27,ti0: D QKE 128,til:P0K 
E 129,ti2:POKE 130,ti3:POKE 131,cO: 
POKE 132,c1:POKE 133,c2:P0KE 134,c3 
¡POKE 135,inso:POKE 136,color¡POKE 
137,rholPOKE 138,rve:P0KE 139,res:P 
OKE 140,sin 

429 IF y>=255 THEN y=y-25S:P0KE 143 
, y!POKE 144 , 255:GOTO 431 

430 POKE 143,y:POKE 144,0 

431 IF soni>=255 THEN soni=soni-25S 
¡POKE 145,soni:POKE 146,255:GOTO 43 

O 

432 POKE 145,soni:POKE 146,0 

433 IF incr>=255 THEN incr=incr-255 
¡POKE 147,incr:POKE 148,255:G0T0 43 
5 

434 POKE 147,incr:POKE 148,0 

435 IF hy>255 THEN hy=hy-255:POKE 1 
49,hy:POKE 150,255¡GOTO 437 

436 POKE 149,hy:POKE 150,0 

437 CLEAR 

438 «en=PEEK(124):bo=PEEK(125):pa=P 
EEKI126):ti0=PEEK(127):til=PEEK«128 
) :ti2=PEEK(129):ti3=PEEK(130):cO=PE 
EK(131 ) :c!=PEEK(132):c2=PEEK(133) : c 
3=PEEK(134):inso=PEEKC1355:color=PE 
EKCÍ36):rho=PEEK(137):rve=PEEK( 138) 

:res=PEEK(139):sw=PEEK(140) 

439 y =PEEK (i 43) +PEEK ( 144 ) : son i=PEEK 
( 1455+PEEK( 146): incr=PEEKd47) + PEEK 
(148):hy=PEEK(1495+PEEKÍISO):FOR 3 = 
124 TO 150:POKE p , 0:NEXT:x=320:c0=0 
:INK O.ÜIGCTC 7 

440 ' « MAYOR / MENOR » 

441 PEN O 

442 v$=INKEY$‘. IF ÜPPERiív$)<>"S" AN 
D UPPER$(v$X>’N* OR v$="* THEN 442 

443 IF UPPER$(v$)="S’ THEN rho=rho+ 
20:rve=rho/2:GOSUB 446:RETURN 

444 IF UPPER$(v$)=”N" THEN rho=rho- 
20:rve=rho/2:GOSUB 446:RETURN 

445 ' « TOPES MAYOR/MENOR » 

446 IF rho>=200 THEN rho=200:rve=rh 
o/2:RETURN 

447 IF rho<=10 THEN rho=10:rve=rho/ 
2:RETURN 

448 RETURN 
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IMPORTANTE 


CADA JUEGO INCLUYE 
UNA PEGATINA, 
REPRODUCCION 
EXACTA DEL DIBUJO 
DE PORTADA 

¡NO TE LO PIERDAS!! 






























Y TE SALIMOS BARATOS 
- \ ~875 PÍAS. 


SURVIVOR 


SPIRITS 






































Sí definitivo, nadie como REGISA puede dar 
una oferta económica tan favorable, ni una 
gama tan amplia de las mejores marcas en 
monitores, ordenadores, impresoras, 
unidades de disco, periféricos, software, etc. 
Pero además del mejor precio, también damos 
la mayor garantía a todas nuestras ventas. 
Por esto REGISA es mejor precio con total 
garantía. 


Ventas al mayor 


Comercio, 11 -tel. 319 93 08 Barcelona 


^^inves PC 


Establecimientos recomendados: BAZAR DELHI Reina Cristina, 11 Barcelona-INTER JOYA 
Reina Cristina, 9 Barcelona - BAZAR TAIWAN Plza. Palacio, 19 (galerías) Barcelona - LOS 
GUERRILLEROS Islas Canarias, 128 Valencia - BAZAR DELHI M. Ruano, 5 Lleida. 





















